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|SHIFTU -tffLfttfft.ftltttL*1-. 1*T, 10 PRINT"*? At" 
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3 • &ft*t-ff)mz 



(1) |CTRL| ^-- (3> hP-JI/-*-) 

a. *-V7^?-ffl*7-'t"^ 

b. U/i-X ■ 7-f-^K(.SISX*)fl>-b-y l-*J:t>"IBI£ 
c . Hi T *t:- K«#0> 

* + -5^-©A?- • -fc. y H±, $4^38S3«A7-<Dfl£r#§lUC TS* 1 ., 
tj^-* . 7 ^ -juKcO-b y H±, jCTRLl *~£ff tftfffr R &ft b£1VJ^' 
-x-7<-* F'miK?li | CTR L | * -£fl< L£ A' 6 *fl" L £ +„ 

Sffi LKABC £';;*-:* • 7-f -Jt K "e^l" 5 *S& 

? "[CTRL] | R [CTRLl T ABC jC TRLj 1 |CTRL[ T " 



fc#L*i\ Cnnf.iST-iSBofi. ?" [R] ABC E] " ^ A'T^fr. ! RETURN | * 
-fflJ^iSt, ABC*' 1 'J A- 7 • 7 1 -JL-FT*^^ti*"to 

4te, a 9 at • *- k©»6H:. «*«, ?* Ha ecE't *»>*■*". 

it, | CTRL | ^-m3tfBg)ffit^aJLUT«jffli3T-r, ^o^i? A9£ff +, 



(2) 



RUN 
STOP 



_ *- (^wxh'yT"-*-) 

3£ff#<D7"n y=> A&W iJ-.i-SBf, ■fLT, 7d7*9A£ A-t -y h ■ K => -f 7* 
^^LOAT)i-^g^4'±g-tJ-5^{:ffi^it a 1SH1FTI (*fcl*H) *-£# 
L&*5?., ;« + -t#tIti:j;l9.*t-:;h' F74 7> 5»Bt;JC:A-7!&>o;fc 
-f u 7* 7 A 4- LO ADP^tfi L * t . 
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SHIFT 
LOCK 



+ -(->7h -P77 •+-) 



(4) |S *-(a^ K-A- *-) 

(5) [SHIFT! *- (->7h • *-) 



JO 



;6) H + " ( ^ rJ+/ *- A '*-' 

(7) PdIlI *- CO^-h/xU-h •*-) 

CcD*-£#+t, *-V;K0fe«|f=*4 + ^5*#-tl^BlJISL,, -eft* 

ti-7^* -m^A^'nJiEfc Lit. 

i8) [ RESTO RE]*- (IsZ. h7-^r-) 
T'o^i^'t', M&^raS&KiO^n^A^ft^LftJSga, | stop 

i9) [RETURN]*- (U$->-*- ) 

(ID) Jcrsr]*- (A-VJt- Ty-fj$*}> ■ *-) 

I « * - £ Wl" i , * - V ;u £ l ?i| K d K (f i 1% |SHlFT| * - fc ()f HI L £« 



II 



il8 fl-f8+- (77>?V3>^-) 

xwt- •*#*;<;/*'_ (VIC-1211) tftttyD^v-x-l-f F-/<7 
? (VIC-1212) tttffl+SZfcUJ:!), 12fflH0lRtttftfc4«;:£4CnJttf::fr 
<3 41-.VIC-l2ll*ft(im2tr«ffll=a:64l>l|*-et, ^oynCifi. 
-*O7 T ^#S' 3 >t»tit634:!iiBr*-e+ 4*1, VIC-1211, 12124- ?« 



J/ 



S54m BASlC«=J:*^tiy55>y 



W*i:, BASIC (^-'/7^) SB-C^py^Atfni^USS. Sife+sav 

*fcfftfr£nj:3t::Xf?3«S£'ft£.£;MB&*«ff>&*itfc;:ftl'£T. 
VIC-1001<7BASIC«fiT?*5kCBM BASIC V2 (H-/ 3 >2) «#U' 

mm basic tti 

BASIC (Beginner's All-purpose Symbolic Instruction Gode) t±, ^(D&CQ 

/t-V + jl. • 3>fa-#-|r, BASICrfgA't I? l**l6*lS± 9 t-ft ») * L 
fc tfKJga££*£Lfc-t»ttl»^f£#£ttA#v6*.TlieKCBM BASIC 

BASIC?i$S(i, /i-'j-t-n, • a *s\£a.-9- ■ ^-A-^^WSiCi-,! 

KI280 7b^7AW»t^ 

VIC-1001CmS*A;h.4fc, 

* %t % CBM BASIC V2 * * * * 
3583 BYTES FREE 
READY . 



? SYNTAX 
ERROR 

READY. 



J2 



t t* < *-/M !::**£ ft SliTT-i-o SYNTAX ERRORiili, 3>t'i-?- 
i .')jg#T-£&l**iM 5 A;ttSftfc:lflftt;«<lN3ft5* ■yb-yft, Z(Dtbtt& 
1.7- . j y-fe-yttflSS 4 **>*"*-» 2f «£ 5 &#&{::£« J: ?&*i/- • 

VIC-1001l-W^^«ft#«:S*5Oi:«, (1) ^-fl^H • *- K (2) 7 

(Dtf-f U?l- '*-K 

70'ty/«- (fi 1 *^ — --fuifvA ■ *- KO*fr#BIL-CTS*») £ 
>tf-ft-, BASICaw F#Kfi!A^I-f SrtKiO. 3>fc^-*-Ktfr<&* 

PRINT "GOOD MORNING" [RETURN | 

PRINT "GOOD MORNING" 
GOOD MORNING 

READY. 



»&*• a*j<d*|*> 4-=r;/^ a-* -«n?> -estate A^©»i*(-i*ien* 

(RETURN | t-^ffl^t, j RETURN | *-;**ff £ flint, zrvtfi- 



PRINT456)|< 346/3 
52592 

READY. 



PRINT SIN (3i/r/360*60) 

I 
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READY. 



PRINT Tl$ 

000152 
READY. 



$-$o ■£«■?*>, g&*fi$c:/fln6ti5 t<D^i &&t)t? B mtt, print 

? 456 * 346/3 
52592 

READY, 

? SIN (3*ar/360* 60) 
1 

READY. 

?Tl$ 

000325 
READY. 



R=10 

READY. 
? 4/8***RT3 
4183.7902 

READY. 



U 



A-20: b=30: C=40 
READY. 

? A&BfcC 
24000 

READY. 



=i y tf jt- ? -oliJU-e* * r Af B lm^r^ la T«3§ D,ttltftlt**fHi * fcz 

S^ffOlfiS^ffi/KL*-*-:, CBM BASlC-ffi, 1 iM > • t>'''-rtti88 



Y- (7-i y • ■?->>*- fc J; tfy^-JX, ■? LT I RETURN I *-£ft»T) *T* 



l0?"/\>-S--f ? " I RETURN] 
20INPUT R I RETURN I 



30? " 9 -f -b * = "; [RETURN 



4*?3/4*w*Rt8 [RETURN 



feAjJUfe%,LISTbAjjLTTJ?0(LISTm^i:fe fRETURN| ^-^ffj-r 

10 PRINT "/\>^--f?" 

20 INPUT R 

30 PRINT "?-f -fe*="; 

40 PRINT3/4X*r*RT3 

yay7A«(A|'^S:#:j65J*}(>i;ffll>'5=r-7> K) + 4fc, BASICnvy M 1 , 

J5 






J6 



[RETURN| hAtlLX Y£\\ 

10 PRINT"A>^-<? * 
20 INPUT R 
30 PRINT "£<■&#=*; 
40 PRINT3/4#>r*Rt3 

PEADY. 
RUN 

?■ 

I RETURN | fcAA)j--5fc, Wffifi 

? 15 

S"f-b* =7952. 1564 

READY. 



fffi**a»0«0*ai«-*»±T tt5t, ^fcftrtfRUN [RETURN] fcA^-f-S 

it", yo^5A*LISTtTTil> fit, j&*tTl»**-V/l.©ffiB*> 
6JilT*A*JLTT3i\ 



C1_R 
HOME 



5 7 " | SHIFT| 
50GOTP10 



■f LTl'jBtUSTt A^JLT h'SP„ rtSjCti, W h'^^^S^atifet,, 



*7 



5 PRINT"®" 

10 PRINT"/\>$--f ? " 

20 INPUT R 

39 PRINT "9< **="; 

40 PRINT3/4*tf*Rt 3 
50 GOTP10 
READY. 



M>*-f ? 

? 15 

$-f-fe* = 7952. 1564 

? SYNTAX 
ERROR IN 50 
READY. 



[ CLR 



fci?!:, I SHIFT | + 



IHOM E 



IC±0, Ho^A-lfiSi* 5 * 'j-v-snitfc 



*II, s ? SYNTAX ERROR IN50"'fcl^ J* -vfe-v?*= ± •> , v4V-i->^ 
-5»i:Xft±WR6 #*•»«:: t *>*>*' 5 *t. *ET. LIST50 fc A/J tT F 

LIST 50 

50 GOTP 10 
READY. 









dkl) tffl^T. «iEt*i = 4i>*f 



^R> IhomeI **tf 



i<D*B&{i, |SHIFT| *-& 



CRSR 



fv/iRi-r-^oTff i, *®&K [c§r| *--p, *-y;^P4:±i:gi, *© 
ft:KT*0£fl"%, | RETURN | *^£ff L *1\ -ftX. *-VJHfr READY© 



50 GOTO 10 



•i±* 1 •ffl'iEfg, |RK_TURN] * - £ $ llj -B-f ( : , *- VA ■ 3 Vf o-fl- • * 
tii«2#/Dy7A»7-< > ■ t W»-*l#k*>lM*JSl::i-*»tt,fll::4o 

■5tl:, ;<D:/n77A£RUNL-r, ^JSiiiMl^SX ZfctJWBUTTSn. 
t + ^OT'o^Affl^fTfrfcjfcatfSI-tl. I RETURN I ^-iflLif). 

-y;u**-A ■ *">»-> 3 >Cf#-?Ti'<tn-5«lS-* i !6:Sn*+ (PRINT" " 
mB||;A-7JU ■ 3> her -A- ■ +-ftffil»#iK, if A<o«jDficX^ *■**•? S 
it, ?-f > ■ ^w*-5 4-«jELT, *Wl;:W*l, , ?ATT4iO:M > ■ * 

^=Jil*1-*'Aij3*i5 t , 3>tfj.-*-li?RED0 FROM START----ft#JA' 
fj^^lftLT h'Sn fc03**tU*i-).?-f > ■ t^M-30T«ti, 10tM 

m~t>4 -t+=ti'i sc'^^itf -f x/v-f li:*js *■**+. jeoffowot- 

it (Ml MR). ;*«&£:. W2«J:^i:A/i;-Sti*t. 

9 4 > • tw*-40?ii, A^**ifcRn(ift*'isiwi:*j<;(=*T:(i», *«M 

St, tC#-f ■fc*-0*W(Ijft/iiL*+ n I J RINT«f#(', " ">S*JtRl»#i:j| : .IIL 

59 



00 1 : }\>*r< ? 
? 15 

£<-fe* =7952. 1564 
READY. 



«2 : /\><r-f ? 

? 15 
7952.1564 

5 [RETURN] 



LIST10 RETURN 



2. 7-f >■ + >/<- 10-150* -eiLIST-TS, 



L.IST10— 150 RETURN 



3. 9-f > '+>^-150*-C**LIST1-S c 



LIST- 150 RETURN 



4. 5-f > • t>^'-150J-UMSS:L[ST+5 1 
LIST150 [RETURN) 



«b-5< t] a » o - ju g -tffc I, >Hjf It | CTRL| t-4Hii>*t, 



40 



10 PRINT" 1 234567890" 
20 PRINT"ABCDEF" 

tfo<0, *>4 > ■ f- >/*-l|J(D1234567890«TCg 1:12345678901 2345 ff**^. 



1} l7>f>-^V'*-*»*»->*:*i:,*tT«EiEL«-QA:flt. fl-f |RETURN| 



+ - £ ff LT [' 51 >„ ft t A. if 10PRINT "ABC" t Aft L , |RETURN| + - £fll 5 
/M 5<i4o#f-e, | RETURN | * -OjBggtttt, fcfc^OOfc^ltSfcJlU* 



| RE TURN | * -jiff g ft y-e F5t> | RETURN | ^ - #tf 5 ft -5 fc , A fta^T 
LA: fc #4 £*!.*•* 

/jL | RETURN] *-*ffL*1\ 



iRETURNl +-«-ff-t3tl:±0, #fti^rt?iS*5-a-5;ti6'-r*i*"r fci 



10 PRINT"HELLO"; 

U/jLt^l>. fLT, IW l-.ira-VA-iWU Z0 |RETURN| , ■? LT 
ft(:*-';i4 2« I-.PaIL. 30 I RETURN 1 iA^L, LISTLTrAf h 5 i>„ 
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10 PRINT"HELLO" 
20 PRlNT"HELLO" 
30 PRINT" HELLO" 
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mem a-tryh-K7*f70>ffilV£ 



S-&Tte**1\ VIC-1001»*VSI"K1ii$BKIi. A-fe-vh •f-^W7D, 

XrATIi, A-fey J- • f-^)iil^tOt, IC-eiJ**-* F-F?^ (VIC- 
1530) Ottl**C-3^-Cili«U*i-. *1\ *tvf • K?-(^07-3TJH: 
iBT, A -fc v h ■ K 7 -f ■/ 4- VIC- 1001 K&ftt t » Jft&ViDM t 2 V tottHtfc- 

*(DffiSJH4^ny9A4 + -*- F^^A^ltTT^O 

10 FOR 1= 1 TO 20 

20? "HELLOW VIC"; 
30 NEXT I 

:©?D?7At*t';l' ■ f-^^EItS-tfSl^li. SAVE tO -5 3"7> F 

£fflo£l-„ 

SglSS 7tl?7A<7>SAVE 

i-f, SAVE-t$fl8K, ^ra^n;/? A|i£Bfl£ott££.W#*i3#1\ ^n 
'/7A*iit, »*84#"£ttfflT** + tf, *IB i: ?-:/!::** i& ** 6 OI±. 16 
^JTff, LfcA'-sT. l:P>yay^Af,4ABCDEFGH I JKLMN 
()PQRSTUVWXYZtO?26i^t LTSAVEUfct LT&> T-7°hC 
fiP £-t-LA>i&£)A:i::h.£-ttA.o Oif), 41, 2lllW7 , uyiAi\ ABC 
DEFGH I J KLMNOP7.ZZ tn J 5«fl;-CSAVESsh.iW&6, »U3>tf 
x-#-tt, rtie> 2 0ffl7'a* , 7 At 4. -/ay^ACil, ABC DEFGH 
I J KLMNOP-p**tWllfL/*to 

5 T, 'JJIIKC ZleO^n y 5 ACTESTt I ^ filMoitTSAVEl"* ZL t K U *t= 



SAVE "TEST" [RETURN] fcAJjLT K£lv, 

Pi ft I : 

PRESS RECORD & PLAY ON TAPE 
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ktkTJiZ*.* 1\ M Bit wffl*- l:Lfc4'l>, it -by h ■ K 7 -f ^©RECORD ## V 
tffLitfO. PLAY*'* >*#+£. BlftiU, 

OK 

SAVI NG TEST 

tf^TfiZii^ SAVE* ! t£T+£fc, BSiirREADY. A'*^3*i. a-VA^jSH 

•&«• 'Si:, SAVINGtl^S>]i* ! ^i"J->ir/HTA>6**I10f*Wii. * 



£210 7b?5A0)VERIFY 

KE«]gHm«(; 4 , 9 * < SAVE? ft fci»; fc 1= & ££feiu * *> *•*% fc fc * 
IX, r-ywffi, RECORD** XOtfbjKti^HHftfc* -*T"f. £jh.££K 
±-T5fc»{C, SAVEJITffc* VERIFY LTte<S«*-3tt-CT£ P. 

flij^|«-/D^-7A ; TEST" £SAVE**7II, *-7^««jfl(i{b|ft»ft^CP 
ofcA-SSwU *-*'- l-'^e VERIFY TESTfcAJ]L*+ r +5t,BffiC 
IX, 

PRESS PLAY ON TAPE 



Bi6i I- tiftn J; *> iStj* -/-t-y^aiT* *+„ 

OK 

SEARCHING FOR TEST 

FOUND TEST 
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VERIFYING 
OK 

READY. 

^fo.WiC^^fcfflSf-i^, SEARCHING <D jt-j-t- >Jb FOUND TEST 

tm<0 * v-t-v &%m 3 *i*itf, -fvo'-l A IJjE t < SAVE ZHtLtz 
(\L, SAVE^JEL<£;*;ftT040Jfc§frl*. &»± 9 £*BKfc 40 ST. 

1) il, ^y ^-^ !/ / 'J77 < -^-«*?^f,ai* J 5^C#tii*ttfti»-{>, 
^-> #"-^ftJ3J^*t&l>3tCJ;t), FOUND TESTO^7-t-y*Un 

2) feu ft^ms&i^D, ?i<SAVE£*rri>*t»*^«, Jft#« 

OKOftOC: VERIFY ERROR tt" -5 j* y-fe- y^^Jti*t s 
Hhtfc^OfcSutt* 5 , VERIFYfefi, u > If a.- #—©■>* V -«fll 



£3ffiT 7tl^7A0>LOAD 



Lit, 

■ ■ 
- 

LOAD "TEST" 

PRESS PLAY ON TAPE 
Itl/hCLfcrt'o, A-feyf- • K9 4 70PL AY #*>*#+£. i«iifijt:ftO± 



OK 

SEARCHING FOR TEST 
FOUND TEST 
LOADING 

READY. 

£**>*►) *-*-#, LOAD*a*»l-RUNS*8i8A(fc«U ^n^9A* 
fct**"^* *-*A- ). I SHIFTS - (*3Ui |g *-) fc[J^l*-*MW 

*fc, ^»W&«^£b-C&TT2l.\, LOAD "XYZ"tA/7t, iffiffirajfi 
/pfcLfcri'U, *±~jY ■ KiM-7V>PLAY£*>&WLTT£l>c PuSf-li 



SEARCHING FORXYZ 
FOUND TEST 

^^>TvL, LOADIiL£-£A^ 

&4Bfi x-*0>LOAD*>\fct>SAVE 

HT»^oy9At+-*-K<»6A;jL. mi x-,m\i- fc £ W TPG M 1 

tn^ayH ftTSAVE LTT 3 t >o 

10 OPEN 1.1,1 

20 FOR J= 1 TO 20 

.10 PRINTS 1 , "I AM A VIC/ ( '(?tffll>4V>-C,PRINT-tL-CT*l>) 
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40 NEXT J 

50 CLOSE 1 

60 PRINT "REWIND YOUR TAPE AND THEN PRESS A SPACE KEY" 

n GET A$ : IF A$=" "THEN70(^*-(-"*MltT2|pl?-<yLTT5l. 1 ) 

80 OPEN 1 

90 FOR J=1 TO 20 

100 INPUT#1 , X$ 

110 PRINT X$ 

120 NEXT J 

1 30 CLOSE 1 

140 PRINT "WONDERFUL.'/" 

■?©**? h £#$MU PGM 1 ttl>ft7^Jl-tliotfc^t h"£O 
PRESS RECORD & PLAY ON TAPE 

REWIND YOUR TAPE AND THEN PRESS A SPACE KEY 

PRESS PLAY ON TAPE 

t^^itffl?, ifi:Lfe*H>At;7b ■ Fv-f 70PL AY #*>£#" 
LTTSl>„ -TSt. OKi:^/j%* ! ifl-C, *525#ftrO£I AM AI VIC! tl>i 
fc#* ! 2WT:/'J > t- S*t, tti*f-WONDERFUL ! ! fc */j\L, READY ik fig t 4 

•£*• COI*, I AM A VIC! fclSff^'J > h U x-^l^^A^* 
flit*', :h.ttM5 7r-*'t^tfi>i:48ft» , e, AW* St) **A.. 

:: ; T\ ^ - /£ $ * /a! I , DATA 1 fc *l »fc 9 ^>u £ (i-j T in >'C F £ <• \. 
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JJtJ-.-c, -»«fr«ii«»)iLA. 

PGM 1 fc-*-*S*lfe:f— '/tf^cr^A ■ r--/T<fc<K DATA liv 

j;S, DATA 1 fc-7-9g*ifcT--/fr*-fc7 b • K?-f T'i-Atl, .S HIFfl *- 

£# L &* 5 P. 'J^pl * - fcW t "C T £ l V, A'iB t: 

PRESS PLAY ON TAPE 

W l r F 2 1 * , 

OK 

SERCHING 
FOUND 

t £'K S tr 5 ff tt 'C\ I -OADI NG fc I ^ ^ v -t-yli^T^i # A,. O * . r 
-? ■ T--/li. -fvf^A • ^-^fcttiioTLOAD-f-SCtli-et**^ 

9-f > ■•*->/<-lf 

OyM • 7rT JH (StfliOl) *r/M 7. •+»*- 1 (2#H»1 

#*vM Hit:, L*'6*Sj&*ffl (»»oi) trOPEN + 5 (W<). 

5<> ■ ^->/^ — 28— 4(1 

r-^i: I AM A VIC! £200, fJSiitr, 

7<> • *>/«-» 

a y i) ;u • 7T-CM ^CLOSE-tS (ffl K5). 

5-T> - ^->/^— 68— ?8 

O/'H- 7 t -f "• 1 t O P K N i" 5 ., 
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7<> ■ +W\"-9fl~128 
T-rffrt> I AM A VIC£20lfilfl3A^t3, **i"§o 

WONDERFUL/,' **3rt-S„ 

(.fcSJi3*liB (= If iB-f , f'HX ■ *->/<!- d^J 3 T 6 *tT fc !? , VIC-1001 « 
*§£, f>*.-j b ■ K-5^ y*Ut4o-CO*+) fflll, ^Y*A-fc, #£SA&ffl(;0 
1 ' E N E fc 6 It T-r „ O * t) , EM« HiO P E N L fcU?- Y * A-*-^ *# L , 
,W)lfif/M.7't>^'-^/TiL, E$«lli, *co^y4wi^£, ^t^i^ffl 
;.: o P E N -f § £ t * Jtttfc E * t „ 

VIC- 1001?!*, ^T-A (JEfll(:(inv*Ji-- 7t^ A-tPftft-f ) &10# 
K-O PENt5It ^TTrflgT-r, 10*JH_Lfflf- y * A^O PEN S *l5 fc , 

? TOO MANY FILES 
ERROR 

<o-?fc5j»*l>*-tfA-„ 256JK hWSt^^fflliSt, 

? ILLEGAL QUANTITY 
ERROR 

t4U * to 

Mf*«ll±, »SiiAffli;-?-Y*^tOPEN1-5rtS:JifH*L-CO*+ (t 

E- ■ fi a^catJitfi:!*, 

OPEN A, B, I 
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t U ^OigftAlJ, Dy*A • 7 f 4 n- - 7->M-T**0, BA>x/M X • -f 

-1 < > • 7-W<-20>£40Ttt, OP£NLtDy*A ■ 7t-( MI20NCH 
AM A VIC! £at)iiA,-(M>i1\ ^LT^O' + >^-50T, JfcKOPEN 
Sfifcnj?*^ • 77^1 4-CL0SEt*+e mJtgA-. OPENLfcnJ?* 

n- • 7r -f )t ■ f->^*-t|u]L;^->^'-^CLOSE I4nt, 7 4 > ■ i->/1 
-8Bt*X7-t:if) t-tc -OtQ, ^»^t^0PEN^■r*5oy^fl■ • 7t-( 
^tCLOSE*"ft-, MOPENtSt, 

? FILE OPEN 
ERROR IN 80 

1 4 15 it, 

7-W*-80T*, ftiJ±ftrBH*t:o ■; #/u ■ 7 7-f ;H tOPENLTl^t. C 
SB OPEN t , I , 

t>"* + )' IHCO FEN £tltir. 7 4 > • 7- > /*-10T, f^-f * - *>'*-$>& 

tf**>^1- ■ T Kuat-gitLfcCDIi. CBM BASICT*(iff COPEN<nv 
A ;u ■ 7 r 4 JU • t>'!-),\f/M 7 ■ 7- >'*-) A* A >4T'i- * T FVX) 
(OWl-SK*!?* 1 **). 9-f > • *-W«-10Tli-te* >**)-• TVUZlttt 

M tc , 7" u y 7 a « 1 . a u n?frc\ PGM 1 £ 1 , o a d -f -s >y <V , 

LOAD "PGM \" 

LOAD PGM 1 " , 1 

TAofcfcll-C, CWltt, t-'/H X ■ + W*-?+., Lfcrt'oT, ]?AS£ 

46. W«»i4feS ft bit t?-*- ., 
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mem /^-Wx-Fomw 



mm mm 

VIC-lMfltt, CPUCMOS TECHNOLOGY*! ( 3 ^ K - /KO^NWSFI) $& 



3S2BS *ti 




H 



£3|ff vTsTbM&L 



^T7^ 




EXP. BUS 



"*^X^" 2.0MHz HIGH SPEED SHARFD ADDFI ^j 



I RAM C 



,Ml! 



BOM CARD 
IEEE INTERFACE 
OTHER EXTRAS 



LIOHT PEN 
PADDLE 

_ lire, I WK 
JOYSTICK EXP 
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CH AH ACTOR 
GENERATOR 
2332 



< 



A 



1.K2MHI 
00 



V 



7\ 



d 



\L 



VIC 656« 



COLOR RAM 



<c 



K 



SOUND 



VIDEO 



*J 



mm ®m±m 



;i;CPU 

ftfflCPU 
CLOCK m$& 

KESET 

(2)ROM 

ftfflROM 

"ft IS 



MPS -6502 A 

1. 0227MHz (U. 31818MHz fcl4»J? 

y * 7 - • * > 

A-K • x-y/TMrBHK 

MPS2364X2 

MPS2332X1 

20K/M h 

E;fc32K/M h i'e-E^g»m 



;3)RAM 




SfflRAM 


MPS21UX10 


f?t 


5 K/M }■ 




EA32K/H l-iXMl^fi"!^ 


(4)CRT-f >*-7x<X 


KfflnyhD-7- 


M P S 6560 


X* 'J->t#f£ 


22#JX23ff 


.Steffi]* 


8X8F^vMj7n* + -;i'J' -128*81 




8 X 8 Vy J -i v 9 * V y V 9 -64fjfiSi 


y?^7?«IIE 


176X160££t£88X160 


A7-*Sftg 


tt7??"8fi 




/f'^y? 1 ) > Kiefe 




**-^-8e 


%-V)l< 


: >j^-x • -f*)>ir • *-y;w 


■?<Dffe 


: 'J/*-* 



(5)* t7h"05-7i<X 
#-u-h : 500*- 



«* 



128Hz~16KHz 



(7)3.— v- • #- K 

££ ; g fcf . y J. ■ yt ? u A. / 8 tT -y b ■ i' 'J 7 A A/li /J Sffl 

(8)y'J7/W- OS-71-fJ 

^-U-j, ; 50/70/134.6/150/300/600/1200/2400/3600 
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O)*- ,*-- k 




U£ 


y7^x7- X^-fV 


*- 


J I Siiftl7JW+-**- F 




47 t >?>S3 > • *-. * - y Ji- 




n>ha-;u-+-, =i ^E K - /i- • 


\m : M 




MWMR. 


AC 100V ±10%, 50/6011* 


jfiff«/j 


18W 


i i:«w*ft 




gfflia.* 


0°C~40°C 


mmm& 


20%~80% (ftfLggL4l>:t 


&#ss 


-5 = C~60°C 


(iwhws 


404(W)X204(D)X 74(H) mm 


:su 


1.8kg 



• u> H □ — IV • # — , 

* - , l/.XI-7-^f- 
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vic-i«loj« J E , J-^(i, hasic«m yj-^'jaf-^rartin-o**^* 

#KROM (MPS2364) t, ^f,7RAM (MPS2114) tmt>HX*i*>, 
ROM20K/M K RAMSK'M I- ai*8**it^*"*"° ROMJ3±U ! RAM fit 4 

Stf-VIC-l*Wl« *-t , )~--?y '/^KLtt. 



$FFFF 



$E000 



$C000 




VIC MAP 
SCREEN RAMI 



4K RAM 



3K 
EXPANSION RAM 



1K RAM 



I/O 3 



1/02 



COLOR 



1/00 
VIC 



CHARACTER 
ROM 



SIFFF 

SIEOO 



$1000 



$0400 

S0000 

$9C00 

S9800 

$9600 
$9100 

*"~S9000 



$8000 



5ft 



MPS-6522©*- h7ti^/Hi Rx| £#!!(! LT F2l\ 



VIA * 1 

MM! 



■VIA 3 2 
IRQ 



CA1 


RESTORE 


CA1 


PA0 


SERIAL CLK (IN) 


PA0 


PA1 


SERIAL DATA (IN) 


PA1 


PA 2 


JOY0 


PA 2 


PA 3 


JOY 1 


PA 3 


PA4 


JOY 2 


PA 4 


PAS 


LIGHT PEN 


PA 5 


PA 6 


CASSETTE SWITCH 


PA 6 


PA 7 


SERIAL ATM (OUT) 


PA 7 


CA2 


CASSETTE MOTOR 


CA2 



CASSETTE READ 



ROW 
INPUT 



SERIAL CLK (OUT) 



CB1 


\ 


PB0 




P8 1 




PB2 




PBS 




PB4 




PB5 




PB6 




PB7 




CB2 


X 



$9110 

I 
$81 IF 



USER 
PORT 



CB1 


PB0 


PB1 


PB2 


PB3 


PB4 


PB5 


PB6 


PB7 


CB2 



S9120 

I 



S912F 



SERIAL SRQ (IN) 



COLUMN 

OUTPUT 



JOY 3 



SERIAL DATA {OUT) 



Yl 



£6ffi *-*-K 



B-1 



A- 
B- 
C- 

D- 
E- 

F- 
G 






CTRL 



STOP 



SPACE — IE — 



w 



5 



D - X - 



G - V 



- J 



I 



+ - p 



L 



¥ ■ 
I 



[it i 






Q H 2 

T 



- E 



F - T 



B - 



M - 



- 



/ 



&SS 



CLP 



CRSR 



F 1 



F3 



-F5 



F7 



RESTORE 



M 



m-z 




RESTORE 



V> 



3-3 



1 2 3 4 5 6 7 




T \ 



RESTORE 
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H-4 



A 
B- 

C 
D- 

E- 
F- 
G 
H- 



— STOP — 

zz zz zn 

* _ L _ ,., 

/ | | SHIFT | | ■> 

Z 



^j-T^T-(7 - 



h - 



I - 



* - > 



V 



I 



HI 



1 



A 



z 



z 



•f 



v H * 
Z 



H * - 



5 - ^ 



z 



=] - - i- - J- 



/ - ? 



* — -tz — "J - * 



JU - U - Q - /\ 



5 - » - >r - > 



DEL 



CHSH 



"T I T 






- Fl 



1 



F3 - F5 



HOME — 



F7- 



RESTORE 



Af 



a- 5 



A— 

B— 

c- 

D — 



m 



Tl ir 



- * r 

- B - 



G- 

H- 



F2 



F4 



F6-F8 



RESTORE 



_ 



4fc> + _#_ Fn^^?-<D*i 1 t«^<0SI#tifelT©±'5(:&-3"ti. 1 *t 



1) GND 


11) C0L1 


2) KEY 


12} 00 L0 


3) RESTORE 


13) R0W7 


4) +6V 


14) R0W6 


5) C0L7 


15) ROWS 


6) C0L6 


16) R0W4 


7) COLS 


17) R0W3 


8) C0L4 


18! HOW2 


9} G0L3 


19) R0W1 


IB C0L2 


20) ROW0 
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Sft7S& f>*-7i<* 

1 ) a.-- yf- ■ *'- h 

2) rt-by I- • 1->5-7i-T7. 

4) y";7A • #- h 

5) jt^E'J- • X^^/'t>*>3> ■ MX 

6) n> i-a-Jt- ■ #- h 






^ ^.../SPIWIW."." 1 




HMHT 



i— if- - 



>^ l J--lC7X^>v a >-/U •> 'J 7JI" *- (• <K- h 



1 ) O.— tf- • *'- h 



1 2 3 4 5 6 7 S 9 10 11 12 




ABCDEFHJKLMN 






T#^ 


ft * 4 


(I # 


*?## 


ft # * 


IB # 


I 


UNU 




A 


GND 




2 


1 : ,v 


100mA MAX. 


B 


OBI 




3 


RESET 




C 


PB8 




4 


JOY0 




D 


PB1 




5 


J0V1 




E 


PB2 




6 


J0Y2 




F 


PB3 




7 


LIQHT PEN 




H 


PB1 




S 


CASSETTE SWITCH 




J 


PB5 




: .-t 


SERIAL ATN IN 




K 


PB6 




10 


I'lV 


1 00mA MAX. 


L 


PB7 




11 


QKtD 




M 


0B2 




12 


OND 




N 


UNI'J 





6J 



2) ii-t-j K • •f>?-7i<7 



1 2 3 4 5 6 



A B C D E F 



»?#** 


1* * S 


A-1 


GND 


a -2 


+ 5V 


C-3 


CASSETTE MOTOR 


D-4 


CASSETTE READ 


E-5 


CASSETTE WRITE 


F "* 


CASSETTE SWITCH 



3) *5-« t*T f *--f >*-7i-fX 




»*«<* 


(1 S « 


m *, 


1 


f6V 


igmA VAX 


2 


GND 




3 


AUDIO 




4 


VIDEO LOW 




5 


VIDEO HIGH 





4) yiJ7^- #- h 




**»-* 


« ^ 


1 


SERIAL SRO IN 


2 


OND 


3 


SERIAL ATN IN/OUT 


4 


SERIAL CLK IN/OUT 


5 


SERIAL DATA IN/OUT 


6 


NO 



M 



5) .*^'J- • i?x/\">va> • rtX 



16 17 la 19 20 21 22 




.5£^#Jt 


<!-§■* 


ffi * 


i£?ft# 


IS ^ £ 


it m 




GND 


GPU?- 5 


12 




■?n~;?i;l''?h3 


1 


9LK3 


2 


CDC 


IN/OUT 


13 


BLK5 


7ny9n\s9 h5 


3 


GDI 


* 


14 


RAW 


^••fn-jOtMbl 


4 


CD2 


* 


15 


HAW 


, 7A-^a- J -9tl'9i-Z 


5 


CD3 


* 


16 


RAM"3 


■ 7JfJa-j7Ws9t-3 


S 


GDI 


* 


17 


VR/W 


VIC'J-K/^-f h 


7 


CD5 


* 


18 


CR/W 


OPUiJ-K/5-f h 


e 


C06 


9 


19 


IRQ" 




3 


GD7 


9 

>B7 7tU7 S t . 


20 
21 


NC 
+5V 


MAX 500mA 


10 


BLK1 


11 


BLK2 


?fl7«l/> 1-2 


22 


GND 





i*-?#*t 


1f # * 


* # 


Iffi^S^ 


11 ^ * 


m # 


A 


GND 




N 


CA1B 


CPU7'KL-^10 


B 


CA9. 


CPU7 ku^b 


P 


CA11 


11 


c 


CA1 


1 


R 


CA12 


12 


D 


CA2 


2 


S 


CA13 


13 


E 


CA3 


* 3 


T 


1/02 


l/O-bU-5 1-2 


F 


CA4 


4 


LI 


1/03 


3 


H 


CAB 


5 


V 


S3 2 


y^?A • 7P7-7 2 


J 


CA6 
CA7 


6 

7 


X 


NMI 




K 


RESET 


L 


CAB 


8 


Y 


NC 


y-a*^vg> 


M 


CA9 


9 


2 


QND 
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6) =1> J-P-Jl/ • *"- h 




2 
O 



3 
O 



o 

7 



4 
O 



o 

8 




SS?#fl 


11 •# « 


m 


# 


l 


JOY0 




2 


J0Y1 






3 


J0Y2 






4 


J0Y3 






5 


POT Y 






6 


LIGHT PEN 






7 


+ 5V 


MAX 


lBBmA 


S 


GND 






9 


POT X 







Aft 



B8W CRTMfl** 

■ 7 j. -i X - =f- -j ~f (MPS-6560) ^rfiffl LTPit, 

rt [Si (Z %m $ ti % £=? fe ± O-'N ^ « r - * f 4 , RAM h { : WW 5 *i fc t' r * R A 
Ml:CM^it : DMA 3> h u-7ii. HDtftRAMrtfflf-^^D 
MAM {VI V9 h ■ J* 1 ) ■ T?**) Cif), jt^fc J; £>W^t - # £^ 
^^•->7rC-B#|etiL. i*iiii^fp]»8L'teT-'t13^S4.IBWf*=UJ1)U*i-„ 



t'r^RAM 
VIC-lMlOfcl'-r+RAMIi, * 4 > • * -t 'J -07 F U X $ 1E00~1FFF»512 

U. $l000~llFFtai3 41-)o 

;*^- i? KHffi t tf f-'* RAMWttlfr £tP L £ 1",, 



UASICx + X h77"f JU 

VIC- 1001KI BASIC r** h ■ 7r-f ;Ki,3S«$1000#ft6*>^^i?- h Lil1% 
tgL, $W«T~(|(FFFKRAM**Ji»*ti.Tt»«Jt^t-tt, $0W2 9 _ h # 
te(r4t)tt, L*»t$2000J!J(±{CfeRAM* 1 itSlS*lTV»«J*^li;$1000#*4> 
(1^*-H, $ 0400-0FFF lir^X h ■ 7 r -f >l t LTi£\!khi\ £■&&,. 
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t"x=tRAM©titl£ 



$1E00 ($10005 



$1E16 ( 

(S1016)! 



22CHARACTORS 



23CHARACTORS 



{ ) W7Kb^(iRAM EXP*t2Miy±C:ili,>£IJM 



CHARACTOR 



$8008 
$8009 



SH00e 



m 



1 



mm 



& 




i 




^ 



S18 
$24 

$42 
$7E 

$42 
S42 
S42 

$00 



IS1E15 (SI 01 5) 




6K 



mi& CBM BASICO)ffi£|| 



CBM BASIC (V 2) (J, Vt&WfWfvtfJ 5 V ^ag-?T<, '*- V -tK- • 
-iy\£3--Z -<D/'mt~TX"&& PET /CBM » 3€F- ^BASICdlE-31 *T fo 
tj, 3* K-A-BASICRHu &£< ASBASSCaMO*?^ #fc# ^l^ , 

Z(D^~?l±. CBM BASICW^t^^^t^L, IS 2 MX'? v > K • %=r~ h .* > 
K-O, *'3*'^Wil«>»Wt'*i*4l»41- S4$ffi, CBM BASIC £g-o 

3-j-f??- h1~-5£te;:i±, y;»3x§D«tr^A s *^*-f „ 

yXfACOiJ-t'yK fci tfOS (t'<l'-'>3>^fA) t BASIC ©$gt £ 

> * 'J -**«=»* ?>-J:0yt s h(3^£)&^ *t= 
©37> FI-J;S 'J *'? f- 

SYSIftli, 75 V^^^t-±»3, 'J -fe -y h #*&-%-? *>7L*1-,, 

llll CBM BASIC V2 MM 
3583 BYTES FREE 
READY. 



*2»:ttfM-K 

VKM001K*^*A*i. BASICS 5 i^ lit 5 fc, f ( r/H I'.T, * 
-v;i.*'MLtPit„ -ftii, BASIC*', 3 v > K £$ltW5»WM<?rC#-£ 
(>4;tt|i*L*t» BASlCli, VAV>}\- *-¥t>\ ttztt, -fvtfu* 

70 



V-fl/^h-t- K ;»ig^. BASIC?)* t- I- *> b teitfnvy KIC-5 

■Y V • t>;<- tot* *#*,,, £fc*-**«A;*l;5*ift:P# 

^rlfiL^ KlfcJ? L ft 9 , & T-ffi 7 ft to JCflHfrt &Z.b#t 

T>i>j y^foC4?J^YV J f J .BASIC^^'%47 L n^ ; 7A 

'P^7i ■ t- K £©*- Klifny^AU^t SJf&PttfflL*-*-,, 

•fvif?l*n&7-4 > {ft) ti, =5 4 V ■ :J-W*-TJi 

ft ^a ^7 AiiR UN 3-? > K^Atri-S3t(;j; 9^ 
7-f vt±BASic:/D^7A»g#fti*£ft-r*i'.. basic©-? 4 ycotiSa* 

n n n n n BASICXx- h X > h [ I BASICS x~ KX > h ) <* -V 'J ?y 

/-f >•+>/*- 'J £ — > ) 

I t* 5 , fc*©*?- b j*> hfi3oy( :) TK« S frf I >4<T lift «J *■£*,., 
BASlc^ciy^Aii^-f 7-Y > ■ j->;s~T~tt£i 0, t + 'l-r/'J #->T- 



;.j;7'oy-5AA i J ' ; t'j-i:tSJrti!*i4)i|g*t*c>fcL-r^*1- I , *ft, t°h^7 
CBM BASIC©* + 7 * *-fc 7 b (Willi £'}<> IJ, ■>¥ >t '^, &7, f => V 

&©3ii}-Ct. 



7/ 



77>^ {3?fr) 
; -fe 5 3D > 

-f3-JU, #-# 

/ J7r/J . !*•»**? 

( Utf^Z 

) tiA'^Z 

% /*-*>]> 

$ K ^ffi-^ 

! &Mft 

>> > JOi- ? * — t - v 3 y (7*° a z 1-P7i) 

: nay 

& TV F 

? gnff (mf 9 >'7-*) 

< *tl# (**>**»>) 

» I'lftl* (3. 14159265) 



7J 



#&+ — 
(CLR) 

<CRSR=c) 
(CRSRo) 
(CRSRtf) 

(CRSR*) 
(CTRL) 



(DEL) 

(HOME) 
(INST) 

(RESTORE) 

(RETURN) 

(RUN) 

(SHIFT) 
(SHIFT LOCK) 
(STOP) 



(&) 



m m 

#-7 jt-^i^i^-fe, L41-,, 
* - v * fc.t'N. i s^-f 5 1 '*+; 

A - 7 «. * h^ 1 3t^i* &L*t, 

Sr=?<Dl*»58fc0MH-*;i&irj;b, ra^H 
fiffi«e^4M5Ii:* ! T*Ut, 4 ft, CTRL + 
RT\ X^frKftS**;: &**-!?§, CTRL+0T*K 

A - 7 iKDSfll i:*'5i*tl¥BJ|SiU ( ■? h J; fc 

a - 7 jKDffiM t % <n&mox^ t <om-z -n - % £ 



|ST0PJ ^-tlsiH-JCff+^tirj; ►}, ^fA»'J 
lSOA^4-*?TS-*4t s f»Jl\ A-VA-tifc 

HSj^rX * u-jt Lit, 

L0AD+RUN©n-7> K£A£ Lfc©fcH3C«*£ L 

*+. 

SHIFTjRJftO* + ? £ # - ■ -b 7 HlfiSS*-*-. 
7°Dy7,d,£0'^tf*^tl.LT, BASIC<D*M U^h - 
* - F i-M L i -f (t i 7, -fv -t li ti READY, #£^ 
Zti, *-7JU* ! ^«L4-t), ££, /a?*ii^ 
■fe y h ■ K?4 y^GLOAD-f'5n*4»±S-&5W i ^ 

[SHIFT | + -fcWflt<D*SfcL**„ | SHIFT ) *- 
t (Ml LT, ?*77ryy ■*t7^*-'t-F<— 
li-jW ?,* + ??*- ■ *- K(0«tt**j;:4H*-t„ 
*fc, Jt«4*- K I fclin«J*it«:*J3a:^*+ u 



7* 



"COMMODORE" 

"1980" 

"3^ K-/U" 

fttt£KCtt&0 2^0££6 , *t>£-*'. 

1 . Bft«*5$; 

-32768*' 6 +32767 * -effl1-^T<D«ft,, Sftli'^ftjS £A < tf - t Ji* f3 * 

2 . 3B'.NRA#£ 
MUft£'?*9l£tLfc]E*fe(stlt«>fttf-Ci',, 3M'.NRjai$£-?ttftlt 0Kft 

g|S) KiftSJt^E* LTff^ (+©(£* nii&<T 6 «fcu) ~}£«*gft (ffiftSP 

T'*sstL*-r, ffi»*o«tHtt-3»*»&+38*-e-e+ (cbm basict&;*> 

*5*ftli, 2.93873588E~-39-1.70H1183K+384TT"i"), CBM BASIC T? 
tt, »•**&#*«>■[«** tt, lMrr««*Ttt*lS*i. 9W*T?»*ISCT'* 



#» 'h ft jH Jfotoftttii, ft<oivf*i*'U»3L£1- r 
l . I0ffijy h«ft*« 

3 . tm>h ft ^ u A«tfttL-r#j^*-c^tiftiB#, 

ffl) 28.9 

-4.89E-A5 
3.7 

7-/ 



*«tttBASIC7 p oy-5A(fe«*>*tStt**^*'t*:»<-ffl^6*i3*ttTr 

BASIC^ttffiR45ttfi**T?fc;4»*l»<tfA,*t. MOW 2 **£#*«»*** 

£&£{i^#Jg (BASlCX-miZtiZ. 3vyF^f- h>> (- -BBS** 
c 0fco3*8i^fJG5fcl>7 ; FjftB£S-A,?i»$©-eK»&*i**A. 

AB$ ="ABC" 



TO <«**) 




Ml 


5*IM*tj&JBa«Sft 


LIMIT* 


»»$« 


N$ 


X¥3E8 



2 E5iJ«f» 

A- fc A tf, V( 10) li 1 * vcftL! Vi|C)(|h; fc L T . I) ( 1 . 4) it 2 * /LfiUW «M fc L T A '? 



75 



basics, iSWKiBETftjfeeswi!*, fcs^&tewS^ai&fts^&t 
if.; ^«i&&. &!Ti:»l^4jSi:^>tatLt |-"£t\ 

I-. *ftii-?«3*^»Jf)*T^*vfcii'&f± 'TYPE MISMATCH"*?- # 

BtlJt.) 

#J) 10 A%=12.34 
20 PRINT A7o 
RUN 
12 

-i?V Rtf ; -32768 A>fj +32767 «$&tftlF*rC&t->ig ft [£ "OVER FLOW*x5 

W) 10 AZ=l2.24 
20 PRINT A% 
RUN 
12 
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iw*^ii#A&Hfta(-^i'T, BiiSfc(i^a^w^?^?t^-r s basics: 

I . JUMUI 
2 . M^-S» 

3 . &mft$. 

4. K& 
l 'Klfttt* 



**?) 


(HW 


(fl) 




t 


J§& 


X t Y 




- 


S5g (*4) 


-X 




*, / 


*». 9U'J4k£a>ll** 


X % Y, 


X / Y 


+, - 


SPS, X* 


X+Y, 


X-Y 



i&&£t3Z&oJ&&, ij-fnn^XT i y>f (Aft?) ffiffl(i«r*10ffl*"C*T* 

■( 

a»OSa*Sfc*ft£frBASICT*«UfcW**-L*L.fc7 : , 



ssssa 


BASICTOUK 




X + 2 Y 


X+2 * Y 




X-Y + Z 


X-Y / Z 




XXY-i-Z 


X * Y / Z 




( X'} Y 


(Xf 2) t Y 




x -:v) 


X t (Y T 2) 




X (-Y) 


X* (-Y) MW f *'***+- 5 HiMt f) 


^tWJr: Kiv> 



^rn-U, division in /,i;k<i . >-*t«'|: t*+, *fc. *--»<- 7 
i'-j>"t- UfcJtJiYcm.'OVKR FLOW" x ^ - tf%t, Lft, 
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SMI* 


mm 


SaS 


= 


#H-> 


X=Y 


< > 


»0<4^ 


X<>Y 


< 


J;*M**li 


X<Y 


> 


J:'J*?U 


X>Y 


<= 


HLi** ,j h*i-* 


X<=Y 




¥i/u**ii> 


X>=Y 



(W«ttMttltftAt*OCt*b*l*t. 2-16 LET£#Bg) 

l -3oao+TlHMW|t?-4:JM«r«»7-*»Ml*tittt)*itu*»#, iMRfSW 

fc t X it 

X+Y < (T- 1) /Z 

IF SIN(X) <0 GOTO 1000 

IF I— 1NT0/J) < >0 THEN K=K + 1 

(8MMI1I7 

t ?'* 1 1" -5 ft * + „ AH *» n W * t * « * I - 'ii L * + .. A 4BW ( li W ff « Wtft 



7« 



not (££:) 




X 


NOT 


1 








1 


AND(mmm) 




X 


Y 


i 


1 


i 





i 


1 








or msm 




X 


Y 


i 


1 


i 








1 









X AND Y 

I 




X OR Y 
1 

1 
I 


»: r-4 2o££ii, -fWUm^S^S^ttt, ¥Jj§f©£*e>©£*fcl±&fO« 
t^**;t#Tt*t (2-13 IF£#B§) 

Wl) IF B>2« AND F<5 THENtflfl 
IF KK» OR J<0 THEN50 

IF NOTP THEN 200 (P^-lHHiii-^T 7 A > • ^ VA-200-^v -r > 
-/L4+) 

«a^1S?ii- *^?> K4— 32768*6, +32767* T?ffll6 tf -y h£DflH|#£, 

t , *§*©& t'y h li 2 -5« t^ v > KO&IS+ 5 fc? y h W^SIC J; -j -fftjfe 3 
fct iff, *5I/0#- HO^f-^'M hm*5 1 f-y > ff(t4-?^i''t5 
zfcmffiltt, Haft* r-*0«ft4-ap-r*«l-«:iri;o-eL.i ^ B 



?y 



63AND9 = 9 63= 111)11 ( 2 it) 

9 = jHjHM ;2 3t) 

AND<D*££ 9 = 1 1 (2 it) 

15AND6 = 6 15= 1 1 t 1 (2 it) 

6 = 1 IB {2 iti 

ANDCDJSS 6 = 1 10 (2 it) 

-1AND21-21 -1= 1 1 1 1 1 t 1 1 1 1 1 1 ) 1 1 1 (2it) 

21 = g B g fl 1 9 I 1 (2 it) 



ANDCD*g£ 21 = 000000000001010] ( 2jt) 

5 OR 3 = 7 5=10 1 (231) 

3=0 1 { 2 it) 



ORffl(S*?= 111 (21) 

5 OR 5 = 5 5 = 1 1 ( 2 it) 

5 = 10 1 (2 jt) 
OR<7)*g£5 = 10 1 (2 it) 

-1 OR -4=-1 -1=1 11M11111111M1 (251) 
~4= 111111111111110 ( 2 it) 



ORCD*S£-1=1 111111111M111) (2 jt) 
NOTX = - ( X + 1 ) fJr£W8<D 2 <Oll« f* ft f 7 (■ £ bifi Ht^W.:i 

(4MB 

W&fi j£o tf T, * 5 * -n" 9 > K \i a 1 x ft if) e> H tz ffi$ft ft: £ iftfStmi: 
f*)H3ti*1\ CBM BASIC): liSQR(Jb- H^SIN (-<M >) fcifOffl&ii 
ANftWMtitl-Oitl-. «AJiAHSl:-3t>T(±*3*TttWL*+,,CBM 

11 AS IC t ti * fc . zl - *Y ■ - (..: ± f) , ffl & $••£ j^fsa *: T- a ± t ! 2 ■ 6 o> \) 
EF FN£ $!«!)., 
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f*l' 10 A$="VIC" : B$="1B«fl" 
20 PRINT A$+B$ 
30 PRINT "COMMODORE"+A$+B$ 
RUN 
VIC1001 
COMMODOREVIC1001 



r- , RttSSJU-JB^feot [SI CftwitRSiiJI /!- J; -jTJt^-T £ ' t 4 T-£ 



* \ 



:> < > <= 



i-i=5ijoitlRaiJSi- j t*i**ti«)S:*5<J^€>i**-f^. £© ascii (tj 

', I lt#il£, *« 2 raOX^JiitSF U< *0 *■■*"» 6 LASCH (TX+-) 3- 

l*l) "AA"<"AB" 

"COMMODORE"= "COMMODORE" 
"X$">"X#" 
"CL ">"CL" 
"VIC"<"VIC1001" 
A$="8/10/80" ff>m& 
A$<"9 /10/80" 

SI MP iT-y-y-b-y 



«J 



m2M CBM BASICS 



1. 7 A- 7 r "Ctrl' «>*:*&?£ StL&IIBtt. ■?«££«!?, *&it*tt&T 
> , 3 ^ 4 if «& 'i' li - *■ £ fifcltfiB C iE h < A J J L X ¥ S \ \ 

ft*to 
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CBM BASIC3V> K • *x- b*> I- -Eft 



CLOSE 




2. 


1 


LIST 




2.17 


CLR 




2. 


2 


LOAD 




2.18 


CMD 




2, 


3 


NEW 




2.19 


CONT 




2. 


4 


ON~GOSUB, 


ON -GOTO 


2.20 


DATA 




2. 


5 


OPEN 




2.21 


DEF FN 




2. 


6 


POKE 




2.22 


DIM 




2. 


7 


PRINT, PRINT* 


2.23 


END 




2. 


8 


READ 




2.24 


FOR- NEXT 




2. 


9 


REM 




2.25 


GET, GET* 




2. 


to 


RESTORE 




2.26 


GOSUB- RETURN 


2. 


II 


RUN 




2.27 


GOTO 




2. 


12 


SAVE 




2.28 


IF~THEN, IF- 


-GOTO 


2. 


13 


STOP 




2.29 


INPUT 




2. 


14 


SYS 




2.30 


INPUT* 




2. 


15 


VERIFY 




2.3) 


LET 




2. 


16 


WAIT 




2.32 



2.1 CLOSE 

#^t : CLOSE <ni?* jl-7 t 4 )i< 



») 



titz &3-T"t » closer*? £ hii-t , W£<D 7 r -f H±7t -i Ji-# 

ffl : OPEN 4 , 4 

PRINT* 4 , "THIS GOES TO PRINTER" 
CLOSE 4 



Hi 



2.2 CLR 

9A : CLR 

get) : -t^-CO»a*ftt0K. X****3t;U3-F ((iW)i«)|:-t?H, 
^*';-©x> F, %9ylr, BKIt'J-fe-y Kit. 

|K^ : CLR^BASlcya^5A«t»-e^tf5*tJtS, ftta^SfelWi^py? 

At«tfftS:t*'t**t. 

• X ? - 1; 4.*).g|;*rC £ fct »#& 

• %9v9 *ttffl1-5*ffl**ff L J: 9 t Lfci§& (GOSUB-RETU 
RN, FOR-NEXT&H) 

•fi9>J*«ffli-5*-ft",-r3ti)DIM-eB5iJ4-S#Lfc^, CLR£*fr-f 

ft : 19 x=25 
20 CLR 
30 PRINT X 
RUN 

2.3 CMD 

#j£ : CMD (ay*il7r-( *-&#> [, fll^t 5 &4iE £ fciii^) 

Kff : CMP«PRINT#(2.23*l!il)tR^<?j'-*tffln«+ 
ft : REM CREATE HARDCOPY LISTING 

OPEN 4, 4 

CMD 4, "PROGRAM LISTING" 

LIST 

PRINT#4, "TURNS OFF CMD" 

CLOSE 4 

2.4 CONT 
mit : CONT 

Htt: ^vVt-A^, *fcliSTOP (3.2MNRQ *END(2.8#lf) * 



H4 



sffW : ®m$:t\'\\:.Lfzffip!rfrZmfttm%it£H£-t<, INPUT (2.14 *flg) *r 
-h^VM>P.7'ny7 e hrttl^l-^a^+±L/;^^ CONT£*frt 
S^St^ny^hfcfcfrtSt-^e^fi^lia&L**, SS CO" 
nt a, x/^-v^fflfcfef-STOPi^izfflueitLii-. /o^Am^ff 

^i^-r-tfitU 5T-f L^ h^- K*-r- !- * V h I" J; ►), *#&£© 
^GDTO(2.12#S3) S-fflO-C^S^ffffli-S't^ttf-r. GOTO 

4t**#{4*a4-«4r+5ii:* 1 t l tt*^ 

■/u y 5 a O^tr ^x 7 - t~ £ U ff Mr 5 *t£ *4ttC0NTC: ± o m ft 

Wl : 2.29 STOPcDJH£#!$ 

2.5 DATA 

#^: DATAOfcftM. <«*>"■] 

iKffi : DATAXr- M^Hl, #9£fif*T- M > f t, /o^A + t': 
iriftVT *»=*>* I >£•£/>,„ DATAXt- h ^ V HI, (a y^dEfflfctt 

KH< o-r&DATAX^- I- j* > t- fcttSifctfTta-fo READ^x 
- h ji > Ki, 5 4 V ■ + W^OlWKDATA*-?- h ^f > h Sr«A,T 
W>S*1\ * Lt^:i:S*nti^f-?lif«fii:n<-5f-?*' 
*£»*>, S.fc\±*<F>titf?V <fy t>.fyV>EZ.{Z.nb'tLX\^bfr{'-\tfr 

ifclifffR^^tJ'^t^Ttitfft^fi^S^i-eA-),, DATAa?- 
h * V M:ft*#x4£:t'&»li, fO+i=3>^ (J, 3H> C) * 

fclitt$l=*afc£>A<fi4& (»<s-^) tfttrJ^ftctf* t-^-^a 
*a-. 

«5 



l±tt&1-3DATAS»&&fc-£feL&<TlifcfJ;i:-£A,. 

DATA*?- h jf > K±, RESTORE (2. 26#SJ) f:: J; ■) gfi) *> 6 St 
tr£ fed*?**?. 

ffll : 2.24 READm^^-^BgLTT^l^ 

2.6 DEF FN 

*j£: DEF FN<«tt)C({/^5jt-^)))= <@S8©5&$> 

gW : a— if r -?=J:o-r«A>^.A:MR(«ttL«lt^f^tt«. 

mm ■ <£fl> l±IEU^tSc£-c i £<t*Uf&l9i-ti:A, 6 FNl:§|3M< <?.ot> 

^^w^mrt^^ad^-rsiCT", iff «««*=*• *r s *i**r. c«^ 

* £ *>*t 5 *"&£ it ,* C B§& £ fi*-f 5 ff St ?*. IRI D S Mt 1 1 7 p ^ 

%<DJ*7 s - 9 (Dmtmmw-ixtLtzm-s-z. ztiti-o *-5T4itsh. 

*tf/l, MS fcl-ioT^ffiS **!.*:&£>, i£<D(iLl±, ^Oltlt 
«*-*>ti*+ a 6LNft«l::j:0a£S*L&Sfc9lft (r-^^>H 
<D^.^-aL4oJ§^(i ; TYPE MISMATCH" 15-^lLit. 

DEF FN7.T- h ^ > KiJEti^SMi-SMK^BftftlSWt-^ff 
a*L4lt*Uffct) *■**„> tLt**tiilfl:MlWlI*ifcWli, 
^UNDEF'D FUNCTION" i7-« ! %tLJt„ 
4*5, DEF FNIt^-f U£ h*- K-eifKMT-**-^,, 

90 : 10 DEF FNAB(X) = X \ 3 / Y f 2 
20 I = 2 : Y - 3 
30 T=FNAB(I) 
40 PRINT T 
RUN 

.3 68888669 
vi y • +W<-MTWftFNAH*Vir*«l,*+,, 



2.7 DIM 

It. lft: ft&i *.*-*-„ 6LffiSS;h;fc«±f);**i>*¥;44*fc*i.fc» 
^■Jt.'BAD SUBSCRIPT" i7-*'flLtf. j^^OS/J^ttft^b 

DIM*x- \> * V H±l8&2flfc££]©+^T«**«tt*feJJWI0 
!C&£L*+ 

lftxH h,255ife.JEiT«K^J*-H:S+5 3t^t l ft*-r n t^W* 
*1tlt32767*Tttffl-r«3t* ! -t?t*i-oeW**©^*3lt, ffiJtJT* 
S5. y*l> -«>#*(::* i?*IIHa*t*i\ 

ffll : 10 DIM A (20) 

20 FOR l=0TO20 

30 READA(I) 

40 NEXT 

50 DATAI ,2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, (4,15, 16, 17, 18, 19, 20, 21 

10 DIM R3 (5 , 5} 
10 DIM D$ (2 ,3 , 2 ) 

2.8 END 

*3£ : END 

<fo&, 3-7 v p injurs? s, 
m®: end^t- ^ j< > t-i±-fu<fT> A«*ff4-)Mf rs-a-sfcfti:, ^oy 

STOP (2. 29* H(|) fcltWfcfK KNF)^f-M> I- TMtBREAK * 
y -fe — i> (± m J'J * *x * -ti: ^ . *fc. T'n^ifl -*»»«F:N[)(±ft 
<Tt*'*i'**A,„ END*?- M^l- fr*t/t*fc BASlCfio 

ffll : 100 IF K 1000 THEN END 

H7 



2.9 FOR— NEXT 

*5£: FOR<Stfc£>=<X>TO<Y)(STEP<Z>] 

NEXT [<***>] (.<*»*>-] 
fc£LX, YfcJ;t>'Zfi&tt£ 

-tit«ffl^i*t.- »*a»»«5S <x) it, **>'*'-ofiUBtt, 

f-M>h ^6NEXTXr- Y--J y \ £X-<n-7u if =, & Ztf'M'fi & *i 
*-f •? U-CNEXT*&*5ttfcNfiST**l'#"ICttSTEP<:±oT* 

^Jtifc*^*tsoliatitto 4L-sTEP^^ass#ifcj^Afi, +isn 

& L*£< ftt»ft&BASICIi. FOR»&©Xr- M> h KM *)■*#* 
fcL;*;£l*4&tf> NEXTCifiK T/n^A&^&Sfl*-*", / 

Jt Z W£ £ iiS L X h ^ l\> - Oig& A ^ V * - »W^ MM i ofh 5 
< 45it, FOR^r- h >> b ^dNEXT^r- h * > I- £T-q:/"n 
^ 5 A £ (0* f T ^H *1 5S i fi * 1" „ 

FOR... NEXT ju-^liAtoHUS (**h) CfSCfcreS Jt^ 
*»3, FOR...NEXTJU- 7«1N:, ffi«FOR...NEXT^-^«:EC £ 

^lffiijo;u-7°«NEXT^x- M > Hi, ^■ffl|(njL--7°«feroi^Ja^i" 

j e*i^ J feaimjl--7 p i:*ttT, l^CDNEXT^f 1 - h * > H-, *OV 

t^-C-**+o NEXTXr- Y * > M\ Mri£«F0R*r- M > H- 
tt&t 5 «<Vi: It, NKXTO*'K ft (i'l? >&+ 5 3 fc tfT- & £ 1"„ fe L It 
(&+ 5 FOR Xf-f^ h W ft I >NEXT*' ft 6 fctlfc ft 5 ; NEXT 
WITHOUT FOR" X5-A'»£L, 7"n y? AO*filt#± LiiV 

* * ■, >; (01? ft i:iWB! A ! *> 5 fc » , ^ «fi "- - ^ "C*t* 111 "CSS FOR... 
NEXT<D»lt** 9 m £ -CT?t. 

ftg 



m i 



&mi\,-7 




10 


FOR 1= 


1T0 3 


20 


FOR J= 


IT0 3 


30 


PRINT 1; 


J 


40 


NEXT J, 


1 


RUN 




1 


1 




1 

1 


2 
3 




2 


1 




2 


2 




2 


3 




3 


1 




3 


2 




3 


3 




iV — 


7*$>$i 


-n%® 


10 


K=10 




20 


FOR 1= 1 


TO K 


30 


PRINT 1; 




40 


K=K+10 




50 


PRINT K 




60 


NEXT 




RUN 




1 


20 




3 


30 




5 


40 




7 


50 




9 


60 





STEP 2 ( * •> V 9 - l±l~l&izgl' f £) 



m3 : *^>*-ro«*Hi#M»HiJ:t>'h;*^ta-& 
10 j=0 

20 FOR 1= 1 TO J 
30 PRINT I 
40 NEXT I 
RUN 
1 

dtojtjrv *^>*-^, mm (j) i fjx-sufciozfcii, ne 
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#J4 : 10 FOR 1 = I TO 1+5 
20 PRINT I; 
30 NEXT 
RUN 

1 2 3 4 5 6 

10 FOR l%= 1TO10 
20 PRINT l?o 
30 NEXT 1% 
RUN 
? SYNTAX ERROR IN 10 

2.10 GET, GETS 

*i£ : GET[£ (uy*n-7r-fJl.##) ,) (*»*) 

IS^ : o?i*7r'( A- &^ 4- 1 1 £641* G E T ij, #-*-FM 7 7r- 
4b/^v7T-rtCflfe4lt*tif. a JP =r — K (=(00) uh ttfi0£A 

GETIli, Py#;u7 7^tf^i:i»)^Jtit7y^^() l £ 
'f-A/jL*1-„ fc£L, OPEN* f - h >>* > I- (2.21#flfl) tIilJ»S 

ft'*U*+„ fOMa*S*' 1 (=At'vH OJf frEOF ( = x v F* 
-J-y-vDv) <n*\- ') -, i/ ') 9- V (=(0D)i«) 4rAftLfc*»if -5**, 
ST (jf-*x) £ JK* :ii:l::«fc-;,TttM+ 4 £fc *<•?** + „ 

ffl 10 PRINT'HANGS UNTIL KEY PRESSED" 

20 GET A$ 

30 IF A$-" "THEN 20 

40 PRINT "OK" 

W 



2.11 GOSUB~RETURN 

■ S : GosuB(7-f y ■ +>'<-) 

RETURN 

SiW : {y-i > ■ t >'•*-} it. y-JA-f-XDmfiKnffoy -f > • ■*•>'*- 
+ 7>~* >«RETURN^56^r1-5 fc , BASICfigiSm GOSUB ;* 

*l=RETURN*H*<-3£.,Tta** I >*#*<#. /n^/.OTy^ 

ft, 1f-7';u-^>4'miEL^RETURN7T- \- j* > I- #tt#^SJ:?t: 

^*iT£;*>*n*-y-A,A\ jM >-:Ta^Afc, -gT'IOJTt 5 £ 5 
Uii'^S ; fc frJ5-ti"» L 4 1„ * ft^ffl**:* T^Ji — * > C^tfi 
A,T-b*T;rfc£Klt+.5£»(::ii, STOP, END&l* ui-»J-:/A— * 

>/*-*■-$-*. Set Kit), iJflfiiti'ftS;^^-!^. 
* 9 y 9<D<gmtzmm&s>&itib, GOSUB-RETURN***? -t ^y 

(2.9 FOR~NEXT#fig) TftffiUfc*#, ^^f i>n-l5«IJS 
*231HT-*-„ 

W : U GOSUB 40 
20 PR INT "END" 
30 END 

40 PRINT "SUBROUTINE"; 
50 PRINT "SUBROUTINE"; 
60 PRINT"SUBROUTINE" 
70 RETURN 
RUN 

SUBROUTINE SUBROUTINE SUBROUTINE 
END 
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2.12 GOTO 

#3 : GOTO (9 4 V ■ *>/*-) 

■e**ilf. *«»^teJ:tf*h|-^S«< *r- M^ **ff L$1\ 

ft 10 READ R 

20 PRINT "R=";R. 
30 A=3-14*RT 2 
40 PRINT *AREA=";A 
50 GOTO If 
60 DATA5.U3 
RUN 

R= 5 AREA= 78.5 

R= 1 AREA= 3,14 

R= 15 AREA= 706.5 

?OUT OF DATA 
ERROR IN 10 

2.13 IF-THEN, IF-GOTO 

#3: IF^ffl^JTHENUx- M>h)l(?'fi"tWH 

IF(lfca*>GOTO<?>f > ■ -i-'s/i-) 

Rtil::irt-*flKf'*Zft9. 

IftW : (#&£.) </m%*>'-& (¥=&) ftfjifTHKNifciiGOTOA^'JUffS^. 
*■*-, THENlZli, '/>*£+* -7 4 > ■ +>/<-4fttt*fti-fiaT-h 
* > h«£%&4ttlt 5 It *<■?** + , 

tL (.ttflU) «W4t* ! . t* (=0) 4*3 If, THKNifcliGOTO* 

IF~TEIKN4-*« (MH U+*Sfc*tTS*t. *«W*iHr«fi 
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IF A=B THEN IF B=C THEN PRINT"A=C" 

IF-THEN < 74 v "}■>/<-) &mffL ftH^ KJtifeyO' 
+ >^*-03t^4lttil^, t UNDEF'D STAEMENT" X?~#5I£L 

i«i I : 10 i= 5 

20 IF I THEN GET I: PRINT I 
30 GOTO Iff 

H ©*-&-, 5-f > ■ :TW*-20TI£, 6 L 1^04 5 If, +-**-h*a>S 

NTAX ERRORS*. »J *i") , 

1*12: 19 IF(I>10)AND(K20)THEN DB=1980:GOTO300 
20 PRINT"OUT OF RANGE" 

300 END 

IF ABS(A-1.0) < = 1.0E-6 THEN... 

■?■*-. t LltOift £!*<*&£,, HWJ-mKWMSeTAlill^U^ii: 
4(J*t„ 



9J 



2.14 INPUT 

IKS: INPUT* t— t- -o M^fJ-JMt, yn^A^rrliML.f 

tifcT-^li,<*»:*>-r^t? 1 *ifc*»i:ftA3nit A^T J -^flQ 
ati'j* h-*©#«*©fti:-ai,-n»&<Ttta:»>i-e-A, e At-'-? 
©jfiHtin y?TEi2J»)*1\ 6 LINJPUT^x-h J y YTi'ffi1£VtzM 
RiHtftl^Of-i' t,*>A;k**i.4*' r3 fci|At=li, HC20 
fflftK*?**^ UT 4 -,ir-? <r>&9& Z t i^ Lit, *£*■* if 
5«»<0f r -#* J A*)S*iA#^. itf-^tU^yv (,) ,3D 
> (:.) £AAL£Nv ! ? EXTRA IGNORED" fcl'^^-t-y^ 

4I)*«,. INPUT* t- > * > h iZj^-ti^C.^ {7, h 'J >^)fflAt) 

- •K(;A^t l i5T-*iDM$(i, *A88S:^*T*T-tc U*>U :/ 
o^h (7 + 1*^-*) m^*'»ffi2S**RiS:©T*ltt±86S:* 

t >$£■(£, ; ? REDO FROM START" ©jt -y -t - yi^ij > I- g ft, 
4-5-*«il3 3ELT-i?«A'/J€-*»f>, #*.£ 5 -,-CAArLfcjffiIifcm£ 

ii. input &*frt 5 if 1=, ftAStifctajS^miiS-T-r^ii-, 
ffl 1 : W input x 

20 PRINT X'^a-) «'Xf2 

30 END 

READY. 

RUN 

7 5 ( iNii tfti I ■: ? A* A fj *j ft , * - v ;u a V,ti* Lfc6 + -*-KJ: 

05*A/jLT K5i> ) 
5 yj/a-5 A 25 
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iwj 2 



10 


Pl=3. 14159265 


28 


INPUT"/\>^-T";| 


39 


A=Pi %R\ 2 


40 


PRINT*.* >tr+";j 


50 


PRINT 


60 


GOTO 20 


RUN 


a>^-t?7.4 (*-*• 


j(>-tr+ 172.033614 


i\>*r< ? 



K«k f)7.4^A:/jLt FSO) 



M 3 : 10 INPUT A, B$, C 
? IS INPUT* 

■3 : INPUT* ( u y*ji. 7 t- >f;u#-^> ,<*«*) 

lift: 7 7"f ^^f-^iA;A, zfaif^ A<D£ffc{-ftAi~£« 

rW.H§ : (DyAj^r-i ^tt-SJ) f±, t - * A *j « fc J6 (I , OPEN (2 . 21 #f$) 

f±, 7T-f ;u»f J -#*aiO*T**»^T'f 6 A^i-«-r-*<D*B(i, 
(**£> K±*)»5feSftA:at-*L4<Tfil»t7**A/. INPUT* 

x t - I- j< > s -ett, inputs i t izmifttf -/ ■; > i- g ti5 - . fc ii* 

7 7-f JUt'Wx-^ti, INPUT XiZ^LXAtl-f %t-9 tm liMl- 

*o-a»a <■£■»* &***.„ &&<&*&&, jtt;fcu-^cj u^->a 

*^'J 7i"J ?->, 707 ( - FK^fflgflnJ?* 5 , SflRx- 
?©S6*0t ^^.SfcftT+o StM(i"J?f), * + 'J v v'J *->-, 7-f 

■ftti, ; ?REDO FROM START" «*fcl)i: ' ? FILE DATA 
ERROR" #7°'/ > h S^ii-f, EQI££fJ?-f AT7 Mr.J;f)INPUT# 

i± 1 IB© f-*©A# *■#**?*>, a^+1-**-*-, 

I NPUT # TM N T A /J T fl 5 f - * Wft kOH S fi88 St*j< T+„ 
»J : 2. 21 01'EN«Jfl£*!!(ILT K*l\ 



<n 



2.16 LET 



14, ^-^flt-Ct^OT-l-,, 



W : 10 LET A = 23 

20 LET B = 23t 2 

30 LET C=23T 4 

40 LET SM=A+B+C 

it 

10 A=23 

20 B=23? 2 

38 C=23t 4 

40 SM=D+E+F 

2.17 LIST 

*S 1 : list [<-7 -f > ■ tyM-)) 

*S2 : list [<54 y ■ twi-))-((?-( > • *w«-» 

(fcfcAtf, fa^H, 7'J >*-&£) i:ffl£rl-3„ 
K^ : ,'f A i ) 

'J X h fcft^Ltts 

2, <9-f ^ • *W«->*<JISi*i'0>SJM', *«#*C:ttSt« 

tf«'J X h£(t£flWjLit„ 
(W 2 ) 

i . mad <-"M > • + >><-> /fit* i ffi'4E4tLftii#, *ey<\frh 
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3S[if|«'J * f-=4tfli/j£ ft *-*",, 
LIST3-?> Kft^LtSfcSfc, BASICli, ofal^vyKM* 

w : *JU) list /p'rti^onj 

LIST500 =? i >■-)-> ^ -5MW) * h 

#5*; 2 ) LI S T 50- 9 4 > ■+ >/ *-50 A^S f£*T« 'J X h 

list- 109 wfeJ^ev-f ^-^^-lrort-w 1 ;* h 

LIST50-100 9-f >-^>^"-50^^ J 100*T*« , J^ I- 

? 18 LOAD 

Si£ : LOAD("7 7-Y^fe") [, (f/M X#^» 

l Itt H»ie«SSi' 6 j< * U -i: 7°u y, i ftU& ; tr„ 

«t« : (7rU«) li, 7vHf?A&, SAVE (2.28#!B) 3 ft *:($(;:, 

*6fflSftfc*it-e-r. 

6fti+ 

LOAD n •?>]-' I£ (77^11-ti) tKL/;-/nr7i^} l i*:t'« 

'/yjtiti't;? 4 ^fti-^T^o-XL it, 

t LLOAD SVVKftT'rJ^A >|>T-'Jl<f r L fci»#fi*- 7° > 5 ft T 
l >£ 7 r A >l 1**0 i t * - -f y 2 ft fc * * f, #f LU7*rj y 7 A ftd-fi 
^1^ (-LOAD). '£trW!#! (-RUN) Lit, 

rto±T(;LTL0AD3v> Kfi»»<-5*»o^py-?A (itiiiDi; 
7 f D7*7Ai?)^<o*>(D-byji>h) ft*BLT*trf 8 <£(;:«*.*■*■. 
*fc. ;«A|ft, r/^nn (ii»L(i-by J *>n«j) i?*»iiJB 

M 3 ft * tf /t«T, r - * «$ ItiME L ft As I 4 t Z. t tf'C 1 1 ?, 

(77 ■( lUfi) *jj;tf (-TVM XffrS}) mWfca'fcoH-frli, St-; I- 
jJ'ia 1 »fit;j(:A-3lt/S-/oy7i,yr •( ^ft,j*ACA*-f, 
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#1 : LOAD "BASIC BASIC" 

£«*A, r/Hatf=l (*t»t) ©«»*6*BASIC BASIC* 

2.19 NEW 

»S : NEW 

i 85 : Sift .* * ') -ft |; * 5 7°n ^ 7 A , fe «fc o-'t-x t ©^S £ffi£--t $ „ 

Kl-^;i-TNEW^A^lL4i- 
BASICS, o*U=NEW**ffLfc», ^v>FU^jU:Sl^t s 

22P ON-GOSUB, ON-GOTO 

*S : ONU) GOSUB<7-f > • -f >/*-) (, (7-f y - + >M~> ] 

0N<S)G0T0{5-^ > ■ tW(-) [, <?-< > • *>/*-)„ J 

ON~GOSUB*r- I- J y Kii, g-5 4 > • ^ >/<-«, -y-y^- 

fet (3$) ®«a*fcl:i 4 ->£##, -'ILLEGAL QIJANTITY"x 7 - 
#»£L4+„ ±fcfcU iI*J, 0*fclj, 54 > •+;"<-©*»* 

ffll : If ON A- I GOTO 20, 38, 40, 50 

A = 4 4^lf, T'ar^AWItWfi, 1M > ■ t>/-t-40Cf*l5*t o 



MX 



J n OPEN 

m.K : OPEN <o s;* JW7 7 >f^##>[,<f/'M *#■?)[, <-fc#>anj ( -7F 
U7.) [, " <7r-f A- &>*))) 

1 <v9ii)iy r A a-&^<255 

f;M *#3-£^£L£t^£-;;L &mm--l (=i)-tv h)#SJ0* 

(i, 4PtOiA^2fi*i- ->'JTA-M^4-ttfflLfcJt8-&-«, GET 
#, INPUT#, fe±0 ; PRINT#*Jaiett5<Dt^-5tJ:{:*1 l *A> 

READ (V-F) 7 7-fJl-tLtftb^t. 

77-1 'Hi. A-fcy h (t'H ^#-^=1), yij >*_ (f;q 7# 
^■=4). f'< X/H (f/M *$*§■= 3), fcitf*-*- F (f/M 
x#^=0) »L-T4— 7>t 5 ::£*«-« ±1\ 

**-, f>-f-7**«ffiLfcJS& 

*-fe-y hf-7'*67ff Jt-fcATJLi-f (StA^A), 

2 A-fe-y fr-7(:7T>( A- $■ tfl *J L 4 + (**:A fcjSU 

7 7^JKO*fti»x> F **:/" r-^EOT^fJCA* 
*>. 

Tt 
W : 10 OPEN2.1.1, "DATAFILE" 

20 FOR 1= I TOt0 

30 PRINT *T 2, CHR$ (1+48) 

40 NEXT 

50 CLOSE 2 

60 PRINT "REWIND TAPE" 

70 PRINT "PRESS ANY KEY TO READ" 

80 GET 0$:IF O$=""THEN80 

90 OPEN2,1,0"DATAFILE" 

W 



100 FOR 1= 1 TO10 

110 INPUT#2, A$ 

120 PRINT VAL(A$) 

130 NEXT 

140 CLOSE 2 

2.22 POKE 

9$.: POKE I,J(0SIS65535,BSJS255) 

wtm : fflftitt#*itp>*y-o#*T't ( , ja#trtfT r -*-e0*>6aB5 

POKEt5MWjS!)g*-t'5I«S(;PEEK^*tJti- a PEEK«3l&{i,l 
POKEtPEEKfi, ftfttftf-^nflHA, tt*B*7;n-*>«*S 

m : 10 POKE 4096,1 

z<DmMti%$m' i *ma z tttiir. 

2.23 PRINT, PRINT* 

#S: PRiNT(#<oj;**7r-f *#»>,H<S>,...] 

*5Jfc<V, KM*** (2 \- ')>{?) atHWJ5#i*+ i^mlBMi* 

1iJ,K fl -eft * H t IX W « ; 1 1: ± t) , *[ 1 1 4- IX WJ *, X ftl /J + * Z. t *< 
?**+. oti9BASlc-e(i, 88X1= 08*"T« 4 tfttlii «*-*-.)* 



/CO 



<.Wf*«46tf, X«3Jir(i[«j^4<, ;f§gcJi?^T'S^Sti*t= 
5 3 1 (" J; -jT38tt $ £ t &-?% * -t. 



M i : ig x=3 

20 PRINT X+7, X-7, X% (-7), XI 7 

30 END 

RUN 

19 -4 

-21 2187 

tl-P *lO '/- > 0*«*»6 Mil t fit tr, 

mi '■ 10 INPUT X 

20 PRINT X "">'->' a ^="X t 2 

30 PRINT X "t>V3')="X t3 

40 PRINT 

50 GOTO 10 
RUN 

7 9 (9*A>JL*+) 

9 ->'->'a^= 81,0000001 

9 V>V3^^ 729.000001 
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? 8 (8*AJJL*+) 

8 ->'>/ a ^= 64 

8 V>y 3 ^= 512 

(a)90 2*. 3«*tt*l.fc*S*a*. UU-.-CWtfftlfiSfcH-aro-Ci* 
*1\, rw*vic*t4oTi>*T;t:/yXA©IS*©»*-e+ fcfc*tf| 

9(02* (9 t 2) UI-m+5^^, ftOiTCftfJit,, 

2loge9=xti-§i 

9 1 2iU*-?&tK>e>tii't» 
e x =«t .0000001 

p'ICTIie=2. 71828183, *f*Mfflft« 9tfiOfc»JG( I:Ott**'AWi > J 

«3 : 10 FOR X=1T0 5 
20 J=J+2 
30 K=K+4 
40 ? J;K; 
50 NEXTX 
RUN 

2 4 4 8 6 12 8 

16 10 20 

I«ft&, *^a>i:io, ftfiitii, «if«*i irt>iM i >T (tCL, 

•*-**} tVilJitlti-^-t > • -t>'?-40Tli?a l PRINT«A>bOi;j i fifc 
*i"0»*1% fc/£L, LIST?, -/o^^A© 1 ;^ h#fclJ4fct*+i:, 
*SfttPRINTt*wS*i*t. 

2.24 READ 

ft* : READ(*«f,>[.<**f,)...) 

ifl: DATAx*-M> K i*)f-##«*, Kfei:»J0 *t 6(2.5* W) c 
IKK ; READ**- M > Hi, *r DATA XT- V A > h tm^Cth^X^ 
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h4ittL{i^MtS^t^ :: READ 3 -r- I- * V hiiDATA^r- M>h 
f)f-?4 lWlW)£«*ffiT*»irBI*J*TT «>**+. READ^r 

UiJ#ffi**ifcttfc£R«Stt-ifcLTi>4tt*itf4&**A, fe L— 

IlLTt^l^li ; ? SYNTAX" i7-«lit. 

nOREADXf"MvM\ l-3H±«DATAAi#SatfcO (ffl 

»:m»^«IE#(r#Bi5tiii-),ifco<o^<DREAD3?- h ^> h 

A'lrSODATA*? 1 - M>1- £#flBT-5 '£**?**+. 4 U<$& 
€) ©ffiHR^DATAUx- M > h©»IS:'«:J«*-CL* -?£*&«, *0 
UT OF DATA" x 7 - #&£ L iT, 

ffi^Snfc^SnSt^, DATA^T-h>VK0-r-#OjB*ifJ4'> 
4PJ*-&(r(±, JRl*T**!Jfc©READ:X-y'- I- * > [-H^Wf-i'* 
P.^Mt&fe*T„ £LREAD*x- M> h #, ■£tULh4lt*U^ S 

DATAXt- M> hO*I*>5 6 9 --SSeA 4 fc-f-ig-S-fi RESTORE 
(2.26#Bg) fc^JBLT F2lV 3 

M I : 10 FOR I = 1 T0 1 

20 READ A (I) 

30 NEXT 

40 DATA7.06,4, 19,3,3.98, 1 

50 DATA2,3,5.09,7,1,8,4 

£©«■&, DATA7f-F^>M^f-?tiA, E^JACftAL* 
+„ ^tfT*fcA(l)ti7.06,A(2){J4.19t, &®jK(-Jlfl#l-ffl *"T ^ 

WI2 : 19 PRINT * CITY ZIP" 

20 READC$, Z 

30 DATA "SANTA CLARA", 95050 
40 PRINTC$:Z 
RUN 

CITY ZIP 

SANTA CLARA 95050 
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2.25 REM 

m£: REM<3j*> h) 

gfl*j : -fvyy&tyKWfi, =M y h£A;h.3 

mm : REM XT- M > Hi^ttliJtit-ti-A.^, l/o^? AOV* I^IRS 
itii.i-o REM^t- h > V hfflff^GOTO^GOSUBf:J:)3^ttt8 

ffl 100 REM CBM BASIC MANUAL 

110 REM'^^EK-JU -»A'>" 

2.26 RESTORE 
fej£ : RESTORE 

gQt) : DATAXx- f- j* > h£WtJJ^f„iS£3J:-5£i--5„ 

#J : 10 READ A, B. C 

20 RESTORE 

30 READ D, E, F 

40 DATA57.80.91 



zemft'Mrrt&b. *»AfcDf::ti:57#ftA **.*+. 

2.27 RUN 

*j£: RUN[<7-f > ■ T>^*->) 

g ft : «ft j* * 'J -rt i: * S :/n :/ 5 a m*fi* P^ffi* 5 . 

i'O 4 1 >Jttftt- li . iK 'bt i > v < > ■ t > > *- fr h Xff *«li t; i i 

to 

* coMJ ft I: , -/ u '/ v a ti'JU f /■ &W r L . BASIC (i i >o f 4 n -7 > K -t 

®'JJtr+S9'f > ■ t»<-a<, 4^. 4i>Wft 
®END*fc{±STOPa-?-l> j( > hJj<*fr**lfci|A 
(|)y o y 9 i **t r «Mi- . (»M' x 9 - >s< % '!■: L fc*B A 

J04 



,' 2B SAVE 

#£.: SAVE[*<7r-f JM5>"C (tVM i$^(,(37> K)))] 

nira : BASicyay? a? r -f jmc*£ z: ih3(-fe-^t5). 

3?> h**0o)|^ 7uy7ABt-7*{*T^f-7"(riSSi;i> 

¥*?T-~f (EOT) #£*>*!*■&*„, 

37>KJ)'0feinffl«^ -b-y*?7^, x>Fiyt-y (EOT) 

l'"l : SAVE 

SAVE "COMMODORE" 
SAVE(A$) 

? 29 STOP 
*S : STOP 

lift : 7°n^5 A«Kfr£ffil. IT^7> FP-~^U:^3 

„».?§ : STOPXt- h j<> Ki^'a^5A»*tT4-#±1-*ftfe(C^'Dy9- v i 
ffl t* 3 TT'ftffl LT fc 3> * t » * * A,„ 

STOP£^fft 3 fc &«£ -5 4 jt -y * - i? ^HJTJ 5 *l^fr£f? it L £ "f , 
BREAK IN n n n n n 



7-T> •±>/i- 
END^f-M/ f- t*>^l\ STOPX-f- M > Hi, 7rU 

STOP*'**? ZixZk BASIC(S#"f n v > F l^JUCJK t) *+, i ft: C 
ONT3WF (2.4*!R) K^tXfrtilVllititt. 

fil Ifl INPUT A. B. C 

20 K=(A+3)/2:L=B* 3 

30 STOP 

40 M=CX K + 100: PRINT M 

RUN 
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? 1,2,3 (+-#- K*»6A*l,*+) 

BREAK IN 30 

READY. 

PRINT L (*"-* U* h*-KT?A*jL*-r) 

6 
READY. 

106 
READY. 

2.3? SYS 

»£: SYS <**45)[«f[K) ,...)] 

SW: ttWt^-f^tlftfS Lit (3.27 USRB8&£#8fJL--CTSo), 



KW 






ffl : IM JA=30200 
1)0 SYSJA 

2.31 VERIFY 

»S : veri FY [* < 7 r -f *• fc) " [, (f v 1 4 7, * *) ] ) 

sag: «'j"^ffly a y7At f _-/ i . 07 - Dy ^ A77Outn ^ tit 

Mi: r>Ma**Ai»tj#i,fci»j||£tt, rtfttfjdi (-**» M*»#ji5* 

01 : VERIFY "KFILE" 

PRESS PLAY ON TAPE # I 

OK 

VERIFYING 

VERIFY ERROR 

READY. 



106 



• 32 WAIT 

gj£: WAIT(#Jdj>,I[,J) 

tftfflt+S. 

4 6, BASIC!*, 4 7— ftfllSt*:*»Ot«ffi*^Aai*|^t;lS^i« 
l*l : 10 WAIT37l5l,64,64 



^ * D * i" . * oH-S-i; fi. ^ v tf a - # - £ 'J -t ? \- (m , w^off) 
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msm cbm BAs\c(Dmm 



tact#Tt*t. 

*3: M&«ieli>#:£; (vt-v^f) £^L£-$- D BHBtK#t3l& (7-¥ 

XS , Y$ ff»0£*5i|**6fcl,** 



IOS 



CBM BASICIH&CD-B^ 







-j.-* Vv9 


XhU>7 


ABS 


3. 1 


X 




ASC 


3. 2 


X 




ATN 


3. 3 


X 




CHR$ 


3. 4 




X 


COS 


3. 5 


X 




EXP 


3. 6 


X 




FRE 


3. 7 


X 




INT 


3. 8 


X 




LEFTS 


3. 9 




X 


LEN 


3.10 


X 




LOG 


3.11 


X 




MIDS 


3.12 




X 


PEEK 


3.13 


X 




POS 


3.14 


X 




RIGHTS 


3.15 




X 


RND 


3.16 


X 




SGN 


3.17 


X 




SIN 


3.18 


X 




SPC 


3.19 




X 


SQR 


3.20 


X 




STATUS 


3.21 


X 




STR$ 


3.22 




X 


TAB 


3.23 




X 


TAN 


3.24 


X 




TIME 


3.25 


X 




TIMES 


3.26 




X 


USR 


3.27 


X 




VAL 


3.23 


X 
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3.1 ABS 

*5£ : ABS(X) 

mm: £X0tfi«rift*-4x.*i-,, 

#J : PRINT ABS(7#{-5)) 
35 

3.2 ASC 

«S : asc (xS) 

#16 : xM)y/x $£Dftfi)mS:*ffl ascii (7^*-)3-KHi*t 

(ASCII n- K^-3^TliW-^D4-#Hg) 

W : 10 x$="vic" 

20 PRINT ASC(X$) 
RUN 



ASCIIS- Ka^A^OXftl^UTIi. CHR$B8£fe (3.4) *#|8L 

3.3 ATN 

•A : ATN (X) 

a»il»**A,AS, ATNOSt»:tt1Sf^»'J''»ua^*-r*fc = 4fc*i..*i-. 

m 10 INPUT X 

20 PRINT ATN(X) 
RUN 

?3 (*-#- K±0 3* A* Lit.) 

1 .24994577 



iW 



I 4 CHR$ 

*£ : CHR$(I) 

mm: ASCII(T^ + -)3-K*«I ?***** 9-** + {ASCna-Kfiri 
*i*+ a fctA!fCHR$ (147) fc&Jr*-* £££**). jBffi£-?UT 

OH*) U *-y^*-A^-> 3 yi:fx+;t* ! T^it= 

M : PRINT CHR$(65) 
A 

£^£ASCII=i- KC**i-50tt, ASCBS& (3.2) 4-#fiRL,TT«l> a 

i 5 COS 

■ ^ : cos(X) 

Mtt: X (7i?7y»ft) «=r*M >o«t ■***+. cos (X) o^mii 

I*] : 10 X=2*C0S(1) 
20 PRINT X 
RUN 
1.08060461 

l 6 EXP 

*£: EXP(X) 

mm: e*X# L £«&■§■* 41",, X (i88. 02969191 i^'h 3 l »*»* UMtT*4 
tt*U£l>lt*-£A, 
4tEXPHft*«*-/^-7ci-Lfc*#, 'OVERFLOW xy-^ 

M : 10 x=3 

20 PRINT EXP(X-I) 
RUN 
7.3890561 
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3.7 FRE 

*£: FRE(X) 

ffigi: y*'J-F^T?BASIC)»i*ffiMO^'f J- *£-£*.* "To KREM&T-ffi? 

ft| : PRINT FRE( 0) 

3553 (*0«!Nr*ffiJH«'M h»*'*7r:**i*t) 

3.8 INT 

*S : INT(X) 

#j PRINT INT(89.72) 

89 

PRINT INT(-23.17) 
-24 

3.9 LEFTS 

#^ : LEFT$ (X$,I) 

«ll : x $ «£«*' 5 I ffloj^ £ l i -A * t. I tt a» &255**««H©» 
tLl tfX$<D«ift(=l.EN(X$))J;i)>:fctt*itf, X$£{***a 

10 AS="COMMODORE JAPAN" 

20 B$=LEFT$(A$,9) 

36 PRINTBS 

RUN 

COMMODORE 

Min$. RKiHTfclSRtWtHL? h '^ I \. 
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3.10 LEN 

*£ : LEN (X$) 

M 10 X$="COMMODORE JAPAN" 

20 PRINT LEN(X$) 
RUN 
15 

f II LOG 

US: LOG(X) 

l«l : PRINT LOG (37/5) 
2.00148 

( 12 MID$ 

■ £: MID$(XS,[(,J]) 

ISSm^iOfii: J ffl«fc *)*■&<.>:£* L£>&ui|#{i. I SB it) 

£U>LEN(X$), o*t>X$0tffft4<] £fVh;*mgft(£>M8w 
#;tLT. x;w3-K(=(«0M,fiS0) £#*i1~° 

W : 10 A$="GOOD" 

20 B$="BY LUCK" 

30 PRINT A$;MID$(B$,3,5) 

RUN 

GOOD LUCK 

LKI'Tfc, K]<;HT$4*!K(LT K 3 l \ 



JJ5 



3.13 PEEK 

*i£ : PEEK (' I ) 

EKI£,FOKE (2.22#SfiD <Dji«$£ £1" 5 Hft-T+o 
#J : A=PEEK (4096) 

3.14 POS 

*St : POS(X) 

«ffi: ■BB±«)*-vfl'»«fto«tt«*4-JI.*.-f(fe«* 1 *). 3[&xt±*-5 

fij : 100 PRINT" ";POS(X) 

RUN 
7 

3.15 RIGHTS 

*j£ : RIGHTS (X$, I) 

^L, I=>LEN (X$h OiOX$<Dtfi&fc I**SU>*fcli* 
it, I =0 4 61*, JUi^a-F (=(W)m, ft* 1*0) Sr-5- *.*"*" » 

fl!) : 10 A$="COMMODORE JAPAN" 
20 B$=RIGHT$(A$,5) 
30 PRINTBS 
RUN 
JAPAN 

MID$, LEFT$£$!KiLT F*l», 



1/4 



:i.!6 RND 

*j£ : RND(X) 

mm: xoiEflflcit} i , -l . 0& 1 ** j-f D 

x=0«i§a-, ttm0fcmiK-©W#©&«*0l £-$■**+,, 

X>0 ©*§£-, ttfflOfctfK*rtl>a»*J!l*4A*t. 

(M : 10 FOR l= I TO 3 

20 PRINT INT(RND(1 ) *100); 
30 NEXT 
RUN 
66 1 90 






3.17 SGN 

■ S : SGN(X) 

mm: XOJEft0CJ;f) l, -l, 0*'jiit o 

X>0lO*^- SGN (X) =1 

X = 0«JS-£-, SGN (X) =0 

X<0«$ft, SGN (X) =-1 

1*1 5 INPUTX 

10 ON SGN(X)+2 GOT0 100, 200, 300 

100 PRINT "X<0":END 

200 PRINT "X=0":END 

300 PRINT "X>0":END 



I«JBft, X<0«Nf, 


5-f > • -t w^-ittT's, 


X>0(D«#, 


9-f > • *>si-W*, 


X = 0ONf, 


7 i > ■ + W'i-200'S 


WLit,, 
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3.18 SIN 
*5£: SIN(X) 

till: X (7yT>fffl (DiM ynmH^^t-fc SIN (X) (Oigttti , if* 

#J : PRINT SIN (1.5) 
.997494987 

3.19 SPC 

*S : SPC { I ) 

PRINTfe£l-tD&f£/B2*ii1-, I fi 0a> 6 255 St^^Bl «&?&<* 

W : PRINT^GOOD^SPCdfO "LUCK" 
GOOD LUCK 



3.20 


SQR 


*a 


SQR{X) 


Kffi 


x©*p;fr«£#*.*1-» fcfiu 




K. 


m 


10 FOR X=2TO10STEP2 




20 PRINT X;SQR (X) 




30 NEXT 




RUN 




2 1.41421356 




4 2 




6 2.44948974 




8 2.82842713 




10 3.16227766 
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1 21 STATUS 

■ £: ST 



mm : a * v K iBiti (* ? 'J - >) , +- #- K. > 'J 7 /iv * * ?£ t*T"S*i: 





ZT-9zi& 


■ 7-f h 






l 


1 
2 




J JX±-3-f A7"7 h 




2 


4 


va-hT'n-v? 




■>3- ^C V 5 


3 


8 


PV^^Q'^itl 




n > ?" 7'P y 7 


4 


16 


«5U-FI7- 




U7'jf" 


5 


32 


fi->?»Al7- 




fl.>?fil?- 


6 


64 


I>K*7'7T<J1' 






7 


-128 


i> K*7x-7 


S#ffiS* L, 


i>K*7x-7 



/a-h7'P^) ST=4 

□ >^^'py?) ST=8 

r-^* l &(D7*D7 7ilAiiAB#{;, MtiiZ^Z^'l h$i%m&tz\~t>frfr 

he.1*, a^-jawa'fcio*^ igHtL-rii. fiu7"py7A7T-( ^t-r 
■J7y( ;ut^^ ■? trie a, £«£##* 6*i*+, 

aa^»*'J-Ki9-) st -i6 

K W k l t%g7-o ,?fflH «Ht7J<D "/a -y ? {:3lHiy iwx ? - * ! * o *: 

m§ * ' i ifl6 & *n rv * * * * <=> *i * i- „ 

fi-;77i.lH ST=32 



IJ7 



(l>Kt77 7-TJl') ST = 64 

T-jiT-rfiZ^ x> Kt7"f-*7 r A >i--? -i? &&% t S T KMri'-fc ■* ^ 

(X>K*^T--/) ST=-128 

EOT (x> K+7-5 1 --/) * HA, £*&£•, ST!ri2S#t. y h Sti*i-„ 

#1 10 OPEN 2 

20 INPUT # 2 , A$ 

30 IF ST=0 OR ST=64 THEN50 (S T= (ii&fMMESl: 

40 QOTO20 *?TLt:t^fttt) 

50 PRINT A$ 

60 CLOSE 2 



3.22 STR$ 

#S : STR$ (X) 

(Mi: xra&tt£jsfct£3=?iJ£#*;i:-ro 

#1 5 REM ARITHMETIC FOR KIDS 

10 INPUT "TYPE A NUMBER": N 

20 ON LEN(STR$(N)) GOSUB30,50,70,90 

25 END 

30 PRINT"LENGTH= I ": RETURN 

50 PRINT"LENGTH= 2 ": RETURN 

70 PRINT"LENGTH= 3 ": RETURN 

90 PRINT"LENGTH= 4": RETURN 

VALMft(3.2*)6*flfll,T F*H. 

3.23 TAB 

m& ■ TAB ( [ ) 

mm : iMiifij (a*>j->) ££12*- = tJL« ifirl!«(;/.iff±-c-'^i'i U^- 

'l'A»(iJ«4&-et, TAB (0) *'A;jS|i;4^ *■*-.. ^Wllii^riiolffft 

I li0*T.Z55t-C«8lfl|-e4lt*iWf4f)*-tiA,.. *fc, TAHIt.P 
RlNT2-f- I- / > h-pU*'ffiUlT***^„ 

lis 



m : 10 PRINT"NAME"TAB (15) "HEIGHT": PRINT 
20 READ A$, B$ 
30 PRINT A$;TAB(15);B$ 
40 DATA'BOB", "180.19" 
RUN 
NAME HEIGHT 

BOB 180.19 

11.24 TAN 

«£ : TAN(X) 

«Bg : X (7?7'/*fi) nn^v hOtttS-'it*'*',, TAN (X) OS? 

L tz m& ii , *0 V ERF 1.0 W " x v - # %$L L * "t „ 

IH 10 Y=P)|(TAN{X) /3 

I 25 TIME 
■ 3 : TI 

M : I0 A=TI 

20 IF Tl-A<120THEN20 
30 PRINT" 2 SECONDS" 

2 U>Hl=. * 2 SECONDS* t^'Jl'Hit. 



Ji9 



3.26 TIMES 
»5£ : TIS 

«8£ : f*s»:M v-£^a,t\ -tw^s* ! hhmmss"{hh :p#, mm : ^> , 
ss : ») mS'^U (^h'j>^)T^Att D *«*jSAtftifi[»(wfA] 
gP:M -7 -lii-^T 0000001: -b-y f- Zti£?„ Lt* ! -,t, rtSM-fv 

ftSfl^M v-<0ttlz|B»1i4#A5ft»i-(i, INPUTS t-K j* > f- t 

flj : 10 Tl$="S(00000" 

20 FOR 1= 1TO1000:NEXT 
30 PRINT Tl$ 
RUN 
000001 (*fi"J-£fc, ft 1 **«(= £*.#*=* S ft*-*-) 

3.27 USR 

*^ : usr(x) 

« : 828#Jfil=# , 'f «•:?]•*- FT**-*- K*'£, ifewi:?!! LT***B>u 

POKE828, 169 
POKE829, 01 
POKE830, 141 

p^|ggj'g g > iSilg(V-RAM) (i7702#ift^ P,^ftft UTl >*i- 

POKE833 , 96 
POKE 1,60 
POKE2.3 

Itiilfii ^^'JTLT, * - 7 Jl, £ * - A # x '> 3 V l:R! L T F S I \, ■£ L 

T, 

B=USR(0) 
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+ 8t, B»©£_hfr J A* ©5^**ft^#*t*-fo *K 

PRINT B tAtSLttt 

10 

t 28 VAL 

• .t£ : VAL (X$) 

MAE: ST^iJ UPJ^/) X $?>**>+»« £%-**+„ &LX$<D&#J« 



r-i| 



10 


A$="123" 


20 


B$="+123" 


30 


c$=*- 


■ 1 23" 


35 


D$="ABC" 


40 


PRINT 


VAL (A$) 


50 


PRINT 


VAL (B$) 


60 


PRINT 


VAL (C$) 


70 


PRINT 


VAL (D$) 


RUN 




123 




123 




-123 











&££**# 


1 (2 h U > 


SHLTTSf 


1 



<)y?') i:*^.5JBMi, STR$l»i& (3.22) £# 
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S4^ cbm BAsica)-ya?7A#J 



ZtDmit. ZtitX'KMmVtzCBM BASICffl =i v y K , * f - h * > h £ffl 
t\ iflfLu, if5J£&7"t? ;/?/,££< HfroTTJ^o 



CBM BASlCT-(±. A-yJMWtlU tefctJ &&&&%$&%&■, *\ : 7?9-& 

XWik,X\ ffll^to 



a 7 > K 


* - m ft 


Bffilw*6hhSS^ 


A - y ^* 
* — V JbT 

s e 

JxteWBS 

?7 7 ? 

!/■> K 

7 V I > £ 

-f IQ- 




a 

H 

II 

» 

ii ( ia ) 

91 

■ 

■ ( a ) 

fl 

k (a ) 

«<B) 
II 

« 

in 


"|CLR|" 


"|HOME|" 


"|CRSR=* | ' 
"|CRSR*= | * 


"]CRSR*J " 
"|CRSRfr | " 


"| INST|" 


"|CTRL| R" 


"|CTRL| 0" 


"|CTRL| 1 * 


"|CTRL| 2" 


"|CTRL| 3" 


"|CTRL| 4" 


*|CTRL| 5" 


"|CTRL| 6" 


"(CTRl | ;■' 


" CI HI | H" 
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10 REM ****************** 

20 REM * HOW DO YOU DO ? * 

30 REM ****************** 

40 REM 

50 A$=" JSKSfcJiiiSI " 

60 PRINT" 3** HOW DO YOU DO ? **' 

n PRINT A$" • " 

80 PRINT TAB(5)"t5V"l" 

90 PRINT TAB (5)". I I " 

100 FOR I = 1TO500 : NEXT 

110 PRINT AS" 

120 PRINT TAB(5)"I S»I \" 

130 PRINT TAB (5)" I I " 

148 FOR l = 1TO500 : NEXT 

150 PRINT A$" # " 

160 PRINT TAB(5)"l;iVil" 

170 PRINT TAB (5)" I I " 

180 END 



> A y ■ -fy^-n-WhvA > ■ ^>/^-150~170(i|itB^Jt v WA£>\itz\k 

M y • :fW<-ii0~i3Wi8S£Slffc$!B&T:*+ o 
M>-?-WW00, 14012, *«ISi, tfiii*tf±$-tf *+:: 
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2. VtC SQUIGGLE (XfifJU) 

1 C$=" ■JBfcH.Bil " 

5 PRINT":]*; 

10 DATA " | " , "— ", "J ", " L* f " r " 

20 DATA 1,0,5,6 

30 DATA 0,1,4,3 

40 DATA 3,6,2,0 

50 DATA 4,5,0,2 

60 DIM A$(5), B(5.5) 

70 FOR l=0TO5 

80 READ AS (I) 

90 NEXT 

100 FOR l=IT04 

110 FOR J=1T04 

120 READ B(J, I) 

J 30 NEXT 

140 NEXT 

190 T1=1 

200 T2=l 

210 X=20 

220 Y=12 

300 REM * * * START 

3)0 T1=4*RND(1) + 1 

320 IF B(T1,T2)=0 THEN310 

325 GOSUB2000 

330 T2=T1 

340 ON T1 GOTO400, 4 10, 420,430 

400 Y=Y-1 IGOTO500 

410 Y=Y+1 :GOTO500 

420 X=X+1 :GOTO550 

430 X=X-1 :GOTO550 

500 IF Y<1 THEN Y=20 : GOTO300 

510 IF Y -20 THEN Y = l : GOTO300 

550 IF X<1 THEN X=20:GOTO300 

560 IF X '20 THEN X=1 i GOTO300 

570 GOTO300 

2000 PRINT" Si"; 

2010 FOR I = 1T0Y 

2020 PRINT"*"; 

2030 NEXT 

2040 FOR I = 1T0X 
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2050 PRINT" »|"; 

2055 NEXT 

2066 PRINT'S "MID$(C$,RND(0 ¥7+1,1); 

2080 PRINT A$(B(TLT2)-1); 

2090 RETURN 






2060 PRINT M!D$ (C$,RND(1) ¥7+1,1); 



m 



3. UO-tVV? -£<D1 



1 REM *#***#*#***** 

2 REM I RECORDING % 

3 REM **#*#***#**** 

4 REM 

10 INPUT"LENGTH";L 

20 DIM S(L), L(L) 

30 FOR l=?TOL 

40 INPUT A, B 

50 s(i)=a:l(i)=b 

60 NEXT 

70 PRINT'WRITE OR RUN (W OR R) ?* 

80 GET 0$:iF O$="R"THEN1!0 

90 IF O$<>"W"THEN80 

100 GOSUB200 

110 POKE36B78J5 

120 FOR I = 1T0L 

130 POKE36874.S (I) 

140 FOR J=0TOL(I) *300 

150 NEXT :NEXT 

160 END 

200 OPEN1,l,l 

210 PRINT #1,L 

220 FOR I = 1TOL:PRINT#1,S(I):pr|NT#1,L(D 

230 NEXT : CLOSE! : GOTO70 



0) RUN IRETURNI 

© iSiiifr length? fc*K*#i, *-v^j£SSUi:1\ 

© * - # - K *> e.#ft«J& * I >*U t . 
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^ 



^ 



1 


1 


i 


1 4 


i 1 


J 


1 


1 


i 


1) 


© 


© 


© © 


© © 


© 


® 


0$ 


® 



lit AtLT Rt>„ 

©otfilwt&ft, 

0,2 iRKTURKJ 

0,1 

191,1 

191,1 

198,1 

207,1 

198,1 

207,1 

207,1 

0,2 

0,4 

WRITE OR RUN (W OR R) ? 

W ^Jftt, PRESS PLAY & RECORD ON TAPE i^ 2 ft i 
s; flSCAa'ttr + SfcCDtttfi) *-*",, 
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U3-tV>^ f<D2 



10 


0PEN1 


20 


INPUT* t,L 


30 


DIMS(L), L(L) 


40 


F0RI=1T0L 


50 


INPUT* 1, SCI), L(l) 


60 


NEXT 


70 


PRINT"END OR RUN(E OR R) 


80 


GETOS : IFO$= "R"THEN110 


90 


IFO$<>"E"THEN80 


100 


END 


110 


POKE36878.15 


120 


FORI=tTOL 


130 


POKE36874,S(l) 


140 


FORJ=0TOL(I) * 100 


150 


NEXT : NEXT 


160 


GOTO70 



® HUN [RETURN ] 

© PRESS PLAY ON TAPE £ HffiC&iP J *iit c x--/$-t 7 hLT 

iPLAYl^ffLT |-Jl\ 
(3) END OR RUN (E OR R) ? fcS/K* fii: t<, 
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5. VIC*JWtf> 

109 REM 

110 REM VIC ORGAN 
120 REM 

130 DIM K$(8), KY(9), MU(9) 

140 F0RI=1T09:READ KY(I):NEXT 

145 FORI=IT09:READ MU(I):NEXT 

150 DATA ((,56,1,57,2,58,3,59,4 

155 DATA 63,70,76,79,85,89,93,95,0 

160 cr$=" axBuam " 

170 sp$=" a >jii tut *]u *m :«2ib" 

180 FORI=)T08 

190 K$(I)=MID$(CR$,I,1)+SP$ 

200 NEXTI 

205 K$(0)="*"+SP$ 

210 VA$= W SfflMHHSKM " 

220 PRINT" Zl" 

230 F0RI = 1T08 

240 PRINTVA$:SPC((I-|)*2)K$(B) 

250 NEXT 

260 A=PEEK (197) : IFA=63THENGOSUB1O00 

270 FORI=1T08 

280 IF A=KY(I)THENJ=|:I=B:NEXT:GOTO300 

290 NEXTI :GOTO260 

300 P0KE36878,15:PRINTVA$;SPC((J-1) *2);K$(J) 

305 POKE36874 , (M U ( J) + 1 28) 

310 GOTO260 

1000 POKE36874,0:FORH=15TO0STEP1:POKE36878,h:NEXT: 
RETURN 



® R u N |RETURN | 

H\ " u [3 " •> 

3] * 5 E " k 

\E " y 
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6. gZbWr-A 

t00 rem I II t *: O 1 1 i »: * | e x x | 

110 REMX"V IC WALL DESTROY! 

1 20 REM *****0#3Mfc)MO#;H 

130 GOSUB620:REM TITLE WRITE 

140 VR=7680 

150 DEF FNA(x)=(V-1)*22+X+VR:REM VRAM ADDRESS 

160 DEF FNB(X) = (PEEK(FNA(X+t))=32) 

170 V=2:REM V=VERTICAL 

180 SC$ = "0000" : w A$ = " 3? m " : PD$ = "S I" : SP$ = " SI l' 

1 90 v a$ = " ^mm&^mmsimmmm " 

200 Tl$="000000" 

210 PRINT" ^SSCORE:0000 TIME:00":pRINTPD$ 

220 GOSUB410 

230 GETAS 

240 PRINT"ij";SPC(!6);RfGHT$(TI$, 2) 

250 IFTI$: >"000| 00"THEN500 

260 IFA$ = " "THEN230 

270 IFA$ = "£"THENDT=1 :GOSUB320:GOTO300 

280 IFA$="T'THENDT=-1 :GOSUB320:GOTO300 

290 IFA$=" "THENGOSUB360 

300 IFWA=0THENGOSUB410 

310 GOTO230 

320 PRINT LEFTS (VA$,V);SP$:v=V+DT 

330 IFV>20THENV=20 

340 IFV<2THENV=2 

350 PRINT LEFT$(VA$,V};PD$:RETURN 

360 POKE 36879,128+2 

365 POKE FNA(0),8i:POKEFNA(0),97 

370 FORI=lTO20:POKEFNA(l),8i:POKE FNA(l),32 

380 IFFNB(l)=-lTHEN400 

390 GOSUB460 

400 NEXTCPOKE 36879, 27:RETURN 

410 Z$=" ":F0RI=1T019 

420 IFRND(I) >. 7THENZ$=Z$+WA$:wA=WA+i:GOTO440 

430 Z$=Z$+SP$ 

440 NEXTI 

450 PRINT "Wfl"SPC(20)Z$:RETURN 

460 POKEFNA(l),32!POKE FNA(l + 1) ,42:POKE FNA(|+I),32 

470 WA=WA-1 :i=20:SC=SC+t0 

480 PRINT "S*M»»U";R|GHT$(SC$+MID$(STR${SC) .2), 4) 
490 RETURN 
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500 PR1NT"3TSPC(16)"X %" 

510 PRINT LEFTS (VA$,!0Trt»B3 GAME OVER" 

520 PRINT" JSHPRESS SRETURN ■ TO START" 

530 GETA$:iFA$< >CHR$(t3)THEN530 

540 RUN 

550 DATA "BHVIC WALL DESTROY." 

560 DATA "SQKEYBORD COMMAND," 

570 DATA "S" 

580 DATA " ma CRSR UP 5S MOVE UP. 

590 DATA " ma CRSR DOWN «!- ■ ■ ■ MOVE DOWN. 

600 DATA a aHEEPflCESS ... TO FIRE. 

610 DATA " *" 

620 PRINT" TH&fflSfl* 

630 READ A$:IFA$ = "|"tHENRESTORE:GOTO720 

640 FORI=tTOLEN(A$) 

650 PRINT MID$(A$,I,1)"_J1"; 

660 F0RJ=1T05 

670 GETB$:iFB$<>" "THENJ=5 

680 NEXTU 

690 IFB$<>" "THENI=LEN(A$) :NEXTi:GOTO760 

700 NEXT! 

710 PRINT" ":GOTO630 

720 FORI=1TO500 

730 GETA$:iFA$<>" "THENI=500 

740 NEXTI 

750 IFA$=" "THEN620 

760 RETURN 



LET'S PLAY/' 

tit) ?4 > ■ ^w^-HttoVRti, %? <) -v<n%9- v r Fu^tt. UM 

^V-mSKifcfiieKfcfigWLTOSJiiftii:, 140 VR=4tf96C*af 
UTT4l>. 
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7. W>&& 


i 


POKE51,0:POKE52,19 


2 


POKE55.0:POKE56,19 


3 


CLR 


5 


FORI=1TO40 


10 


READ A 


20 


POKE1023+4096+l,A 


30 


NEXT 


48 


GOT0 100 


50 


DATA16, 124, 16,58,84, 154, 178,82 


60 


DATA0.2, 129,129,129, 129,65,2 


61 


DATA24,0,24,36,4,4,4,8 


62 


DATA48,0, 120, 16,32,84, 136,0 


63 


DATA32,248,34,33, 120, 164, 164,68 


100 


POKE36867 ,PEEK (36867) AND254 


105 


POKE36866. PEEK (36866) OR128 


110 


POKE36869,253 


140 


END 


(D RUN [RETURN| t ffl L T*fr 4 * * 1\ 


© M 


\iW+b, Bffil: ; *" tf%*Zti£i- 


£ 


| » H>" 


I 


; V 


c 


; **■ 


E 


] * ; fc" 


#fi:i 


;2*ft#H-""i • U'/'Ja-'/s > 
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8 . £?7\ *->fE J$7tl?7i* 

100 REM %%%%%%%%%%%% tt%%%%%%%%%%%%%%% 

110 REM*MAKE PROGRAMMABLE CHARACTER X 

120 REM X * 

130 REM X FOR VIC 1001 * 

140 REM %%%%%%%%%%%%%%%%'%%%%%%%%%*%%% 

150 VR=7680 

160 V$=":fi~*iK3 ":W$=" " 

178 PRINT"nWHICH ?* 

189 PRINT'S {HIT NUMERIC KEY.)" 

199 PRINT")SraSI*..8*8 DOT." 

200 PRINT" M32 8.. 8X16 DOT." 
210 GETA$:iFA$=""THEN210 

220 IFA$O"1"ANDA$O"2"THEN210 

230 CH=0:iFA$="2"THENCH=1 

240 CL=7:iFCH=1THENCL=15 

250 PRINT":?"; 

260 J=8:iFCH = 1THENJ = 16 

270 FORI = 1TOj:PR1NTW$:NEXTI 

280 X=VR:POKEX, (PEEK (X) OR 128) 

290 GETA$:iFA$=""THEN290 

390 IFA$=CHR$ (20) THEN590 

310 IFA$=CHR$(13)THEN650 

320 FORI=1T08 

330 IFMID$(VS,l,1)=A$THENJ=i:i=8:NEXTi:GOTO360 

340 NEXTI 

350 GOTO290 

360 ONJGOTO370,400,430,460,490,520,560 

370 REM CURSOL DOWN 

380 X0=22:Y%=Y%+1 :iFY% >CLTHENY%=CL:X0=0 

390 GOSUB630:GOTO290 

400 REM CURSOL UP 

410 X0=-22:Y%=Y%-1 :|FY%<0THENY%=0:x0=0 

420 GOSUB630:GOTO290 

430 REM CURSOL RIGHT 

440 X0=1 :X%=X%+1 :iFX% -7THENX%=7:X0=0 

450 GOSUB630GOTO290 

460 REM CURSOL LEFT 

479 X0=-1 :X%=X%-1 :iFX% 0THENX%=0:x0=0 

480 GOSUB630:GOTO290 
490 REM CURSOL HOME 
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500 x%=0:y%=0 

510 POKEX, (PEEK (X) AND 1 27) :X0=0:X=VR:GOSUB630:GOTO290 

520 REM PATTERN CLR 

530 xK=0:Y%=flCPRINT"Sr; 

540 Y=8:iFCH=1THENY = 16 

550 FORI=lTOY:PRtNTW$:NEXT:GOTO2B0 

560 REM DOT ! 

570 POKEX, 81 :X0=i:x%=X% + i:iFX%>7THENX%=7:x0=0 

580 GOSUB630:GOTO290 

590 REM DELETE DOT 

600 POKEX, 46:X0=-1 -X%=X%-\ :IFX%<0THENX%=0:X0=0 

610 GOSUB630:GOTO290 

620 REM RVS SUBROUTINE 

630 POKEX, (PEEK(X)ANDI27) :X=X+X0:POKEX, (PEEK (X) CR128) 

640 RETURN 

650 REM CALCULATE 

660 PRINTS"; 

670 Z=7MFCH=1THENZ=15 

680 POKEX , (PEEK (X) ANDI 27) 

690 FORI=VRTOVR+22*ZSTEP22 

700 FORJ=0TOZ 

710 IFPEEK(I+J)<>81THEN730 

720 Y=Y+2t(7-J) 

730 NEXTJ 

740 IFI=VRTHEN750 

750 PRINTTAB(t0)MID$(STR$(Y),2) :Y=0 

760 NEXTI 

770 PRINT iPRINT" MS RUNTTT'iEND 



£&'/:£ fit] HM:H-? It £ 1 btfti £t. 
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ft Si 



A : CBM BASIC03— K^ 
B : CBM BAS\C<D%V6B 

C : ffeCDBASIC*6CBM BASIC\C7)E& 

d: i7-> v-tz-v-Jt* 
E : t£SHCI& 

F : *7-3> hP-Jt- 

G : VO>b' 

H : A-f ■ l/VUa-ya > 
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A : CBM BASIC03-K^ 






3- K 


BASIC(7)^S 


3- K 


BASicmiiSI 


3- K 


BASIC©§?4 


1 28 


END 


154 


CONT 


180 


SGN 


129 


FOR 


155 


LIST 


181 


INT 


130 


NEXT 


156 


CLR 


182 


ABS 


131 


DATA 


157 


CMD 


183 


USR 


132 


INPUT p 


158 


SYS 


184 


FRE 


133 


INPUT 


159 


OPEN 


185 


POS 


134 


DIM 


160 


CLOSE 


186 


SQR 


135 


READ 


161 


GET 


187 


RND 


136 


LET 


162 


NEW 


188 


LOG 


137 


GOTO 


163 


TAB ( 


189 


EXP 


138 


RUN 


164 


TO 


190 


COS 


139 


IF 


165 


FN 


191 


SIN 


140 


RESTORE 


166 


SPC 


192 


TAN 


141 


GOSUB 


167 


THEN 


193 


ATN 


142 


RETURN 


168 


NOT 


194 


PEEK 


143 


REM 


169 


STEP 


195 


LEN 


144 


STOP 


170 


+ 


196 


STR$ 


145 


ON 


171 


— 


197 


VAL 


146 


WAIT 


172 


* 


198 


ASD 


147 


LOAD 


173 


/ 


199 


CHR$ 


148 


SAVE 


174 


1 


289 


LEFT$ 


149 


VERIFY 


175 


AND 


201 


RIGHT$ 


150 


DEF 


176 


OR 


202 


MID$ 


151 


POKE 


177 


> 


203 


GO 


152 


PRINT # 


178 


= 


204 


7SYNTAX 


153 


PRINT 


179 


< 




ERROR (;±) 



(HO *J*f*. zo^^-jyt^^^i\',))ihito 
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B : CBM BASIC<D#B£ffi£ 

' .1 1 1 FT) * - £fl L &# f, I £ :/ U > I- L * t= it, ^77^^^r/? 
'i E-T, if £ ££>££--?*., LIST»A'fcl3J=4<3*i- CBM BASIC©-©® 

ii | shift! +-£ffL&^6, *©*-£Wi-;:fc£^u*+ *«*(=. r-f 



*-7- K 


4 


i IS S 


*-9- K 


* 


ta m 


AND 


A® 


A0(A*J 


RUN 


R© 


r^(rj-) 


NOT 


N@ 


N|Z(N?) 


SAVE 


S® 


S#(S*) 








STEP 


ST© 


ST~(ST±) 


CLOSE 


CL© 


CL|~] (CLv) 


STOP 


S® 


s Us*) 


CLR 


C© 


CL(C'J) 


SYS 


S® 


si IKs;u) 


CMD 


c® 


CS(C^) 


THEN 


T® 


tUKt*) 


CONT 


c® 


Cr(CT) 


VERIFY 


V© 


v M(v*) 


DATA 


D® 


D*(D*) 


WAIT 


W® 


w*(w?) 


DEF 


D© 


D— (D+) 








DIM 


D® 


DMD7) 


ABS 


A® 


a T(A-y) 


END 


E® 


E0(E*) 


ASC 


A© 


A»(A*) 


FOR 


F© 


fP(f^) 


ATN 


A@ 


AOA+) 


GET 


G© 


Gn(Gt) 


CHR$ 


C® 


C~[(C*) 


GOSUB 


GO© 


GO»(GO*) 


EXP 


E® 


E+(EU) 


GOTO 


G@ 


Gr(GV) 


FRE 


F® 


FU(F^) 


INPUT* 


1 ® 


1 0(1*) 


LEFT$ 


LE(© 


leN(le-) 


LET 


L© 


LM(L7") 


MID$ 


Mffi 


mH(m/) 


LIST 


L® 


lNO-7) 


PEEK 


P© 


pl1(pt® 


LOAD 


L© 


LP(LV) 


RIGHT$ 


R® 


Rt\|(R^) 


NEXT 


N© 


nH(nt-) 


RND 


R® 


R0(R*) 


OPEN 


0® 


on(os) 


SGN 


S© 


sy(s5t) 


POKE 


P(0; 


p,n(p^) 


SIN 


S® 


sM(s7) 


PRINT 


? 


? 


SPC( 


S© 


sni(s$) 


PRINTS 


PCR) 


p'—(pjt) 


SQR 


s© 


S«(SA) 


READ 


R© 


R^(R+) 


STR$ 


ST© 


STU'(ST^) 


RE- 


RECSi 


RE* (RE*) 


TAB ( 


T (A 


T*(T*) 


STORE 






USR 


U(S) 


uflut) 


RETURN 


RE(T; 


RE|| '(RE+) 


VAL 


V(A) 


V ♦(v« 
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C : ffe0>BASIC*>6CBM BASICMD^gl 

fr-r s *&. ^'>yuy •? a 4 cbm basics ic*sei- 5 #5 * ! * * 1" E <o 

C.I £*SI(a MJ>"?')Se?'J 

h^MSLT F2t\, fct^-tf, dim A$ (I, J) B, jmSUMofc^MC) 
a^S#]£^*>L*tA s . IWiCBM BASICT'ii, DIM A$ (J) t^ifft, 

O < o^tDBASICTfi, 3>v {,) ^T>K (&) £i:^?ij (X h 'J yy) 
**«-r5«)=ffiffl.UTOii-*'. ZtittCBM BASICT-ii, -fyZff^ (+) 

CBM BASICT'fi, MID$, RIGHT$, LEFT$Wl&£. Z^&l UM)^) 

BASICT-ii, A$(I) l±A$©«t»*»£i|S I SH« 1 £?££: fJ£L*1\ *£A$ 
(I.J) aA$OJBI#gi6^ J*BO*^9<J*tl9tfb*i- ;: ft £ CBM BASIC 

ffiCDBASIC CBM BASIC 

A$ (l)=X$ A$=LEFT$ (A$, l-I) +X$+MID$ (A$ J + l) 

A$(UvJ)=X$ A$=LEFT$ (A$. 1-1) +X $+MID$ (A$, J + l) 

c.2 anoftA* 

^<'3^«BASICT'ti*«J;-5 4ff^ffI^T, BtC(C|H|B#(I £ftA1"3 - 

10 LET B = C=0 
L*>LCBM BASICT(J2#H«3P*J (=) *«ffl«fW ft UtM« fc» 

■¥ ;T\CBM BASIC-CBfoitfC^BtftAi-SfcWt-fi&W i •? tiit. 
iff c=0 : B-g 

c.3 v;u?-^-r- hj<> h 

h^^«5«^a( \)TjK^-5T«<BASIC***t3*t* 5 , CBM BASIC© 

MATMB 
MATMfe*JT?t>TO«i*#, CUM BASICeti, FOR NEXTA"-7#ftBJ 
LT#*&fcLT f>*4f H. 
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D : X7-*rfe~>'-K» 



BASICX-7- 


l7-^7t-y 


* B 


BAD SUBSCRIPT 


dim*-?- h *> Kf«»*nfcie5ii<n«iB*ittjL)tj: 




7 4r«^.*fcDIMSS*i*-f[;,K5(tffifflL>fcJi^ (fc 




£*U BASIC0S'S±- £51]^*^ tf'0~9£T'(Dt6ll 




Ttt. DIM*ETS#Sl±&4S-&/i.)o 




ffl) DIM A (2,2) ttfLtftt 




a (1,1,1) =2 tsgfT-rat 




?BAD SUBSCRIPT ERROR C* »J S to 




DIMM£ LS'i'T'Ig 




A (10,10) =2 tm'iJTZt 


' 


?BAD SUBSCRIPT ERROR £4 M 3: To 






■ ANT CONTINUE 


SIffi. ST0P=i-7> K<DSfr, tL< li|STOP | *-* 




WT^tCi'J, yD?'7A«^l?fS4 1 J:S#tJg-g-lC. 




CONTlCJ:*JSTOP£J«R£UT\ 51 SScS^ff £ffi?ig?£ * 




ttf. *W 4 5i'J «&£■!:, CONT £*fTi* Hi <£ 5 £ tS 




fc> ;ni7-s f Stist„ 




1) yp^vAft^su^^Ji^ 




2) STOPLfc»i:, SrU>fT*ii*flLfc«£ 




3) yn j ?'-7iA v R UN37> KC£iJ£ff£ftT^Si,i 




•6 




4) X5-tf*£LT*iW+»;*ftfci£-& 


DIVISION BY ZERO 


fttt («^») i:*i^T#«t0-?SiTUJ:5tLta 




£ic. ;«l?-i!fli#Jt 




fe Lyp^^ASIfT+l-s ;0l7-> ■x-b-ytffcHS 




*nfc46, *o*a?, #$**0?A3zt*. «»5 




cttfTisr,, 
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I-7-* -y-fe-y 


If H 


DIVISION BY ZERO 


? DIVISION BY ZERO ERROR IN 10 
LIST 10 (l^-WfliUfefiKi'J* H«'»"ST) 
10 A = B/C (z«Jr5 4M(st£T*:fcL*?) 

PRINT C 19^1-9 h*-KT#ec«ffi&iB^*-f £. 

g 0[:t-5T4;£* , f)»"JtTI 


FORMULA TOO 

COMPLEX 




ILLEGAL DIRECT 


BASIC T\ INPUT*£(iGETT'T i -3'£A7JT£±l-£'. 
885:?: (=88/W h) ftroA7J/<-7 7 7-£#fflL-STo 
Zcnm^n-jZiT-ft-. ¥-KW? h^E- FT" A?J £*!.*:=] 

^> Kst»j;^T'*ff?-tt4/iS)CfcfSffi$ti*-ro -f 

0)fc», INPUT* itfGETS, ^L-7 h-T- K'T'Sfflt 

t»o LiCBASICCOSSti'JT'CISWStiStc ■?©£» 
> KtfliJfrA*! a *i4 t , BURA*& < 4 -o T L t (,> S * «, 


ILLEGAL QUANTITY 


KIRK, aSlCft^fr^Stt^SStffl^rSfrUJ:^ 

0£ (iS*) S32767 

fciAtfA (-5) =5(i 

? ILLEGAL QUNTITY ERRORtCft >J **« 

2) LOG(X) (X>0) 
X tf * * it It 0<D«*I 5 -Hfc 4 * to 



140 



17-Jl -y-fe-V 



NEX WITHOUT FOR 



3) SQR (X) (XS0) 

4) A T B 

PRINT (-5) t 2.3 
'ILLEGAL QUANTITY ERROR 

6) MID$,RIGHT$,LEF$(Tj:S:=f5l]0 r )ft££ig£f 3'*7 

7) ON<SC)QOTO{2.20#(!S) J)<>7*;« GSOlrffi 

0< (OtvJX) <255 

8) PEEK, POKE, WAIT,SYST i JgS1"5 7 7 K^XA 1 "*m 
t&8J*Koi§-&, i7-i:S«f = 

0^7 KU* 565535 

9) WAIT, POKE, TAB, SPCTfi&StS^T J* -****© 

0-s. (/f-7^ -$) S255 

ft t A If, POKE826, 1000£*fr* it 
? ILLEGAL QUANTITY ERROR 



F0R...NFXTO* Xx < > 7tfl L- < 7U 7? U t ti ft 



14J 



i7-> y-b— j >' 



NEX WITHOUT FOR 



g a 

WD FOR 1= 1 TO10 : NEXT : NEXT 
?NEXT WITHOUT FOR ERROR 



FOR 1=1 TO10 : NEXT J 

?NEXT WITHOUT FOR ERROR 



OUT OF DATA 



ATAT-£g£ftT^5f--£CD&J:U^:ii£-t;. jl? 
-ff'MLST, 

Sfc, 7 s -f a^U-fOBBC. READY. OS?* 1 '*^ 

ftTi^niifrCA-vAttfttL.. return (y*->; 

*-SfftUroi7-«tUSf (fttfft&READY. 
* BASIC fr'READY. fcl^^t LTSffUj: ? tt«* 

4n) 



OUT OF MEMORY 



7n-?"-7A«ftj£*fcliilIlH,T^5i§£, BASICx* 
!5-tftM*f o 

Sfc, FOR...NEXT,GOSUB...RETURNO±-5C ^* 

$.£>§■&.* *v -&mfo% < ,;mi7-* f siLtt„ 

10 GOSUB10: GOTO10 
RUN 
?OUT OF MEMORY ERROR IN 10 
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X -? — * -y -fe ~ y 


h a 




mmz j* ^E U -§**"'£ U4-<ft o fc©*, ft: X $ -y 
C(D^»« i '— fftftot«-i:5ofcJ)*ttF R EIS& 

PRINT FRE (0) 


OVERFLOW 


»JH6**A*LAartli!f1.7B141184E+38J:i;ASi,i 
«£\ BASIC?l4ffi-3 ittfTS-f, I7-I:44tt. 

£*, UNDERFLOWliX^-tShS-frA,^ 2.93873587 
E-39<fctJ'MofMittv t^T0t UTfE^tiSTo 

PRINT 1E40 
? OVERFLOW ERROR 


REDIM'D ARRAY 


-mtw l tie^is m css^st t> o -jnm i test 

ti7-C4'J4t, 

ffll) A(5)=6 

DIM A (10,10) 

7 REDIM'D ARRAY ERROR 


REDO FROM START 


INPUT HffBSC, INPUT T-fit£L£W ££*>>■? SO?- 

*r. 

ffll) 10 INPUT A 
RUN 

?ABG ( ; ABC"£A£L-£-f) 
7 REDO FROM START 
7 WtfAAfcSSL-it) 
EK f-'-^tfAASftftSTIciSAAH**^ 'JJfi 
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17-Jl y-fe-V 


£ s 


RETURN WITHOUT 
GOSUB 


ftJttSGOSUBtf'&l?. RETURN£K?Tb=fc9 t U 




ffl) CLR (2.2#B8) 

7RETURN WITHOUT GOSUB ERROR 


STRING TOO LONG 






ftj) A$ = "A" : FORI= 1 TO10 : AS = A$+A$ : NEXT 
7STRING TOO LONG ERROR 


SYNTAX 


>K IHI8fcUT, CBM BASICfr'StoT^S^iK, £ 
To 




ffl) A=(1+8 

? SYNTAX ERROR 


TYPE MISMATCH 






l?l) A$=12 

7TYPE MISMATCH ERROR 


UNDEF'D 

FUNCTION 


£«UT^4-^Bg&£tefflLJ:-3 t Lfc«^> 17-*' 




ffl) X=FNA (3) 

? UNDEF'D FUNCTION ERROR 


UNDEF'D 

STATEMENT 


GOTO, GOSUB, THENTffiSUfc^O •?">'<-** 




fill) GOTO A 

? UNDEF'D STATEMENT ERROR 
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tA , -l/-7-f>C"'->^xA (OS) 17- 


x 5 — J< -y -fe — v 


m a 


BAD DATA 




DEVICE NOT 

PRESENT 


fflHitl/tiit. SiLSt, d(DB#. ST (7.x 
-£*, 3.21#S8) B£-fA7"7 h *^1"2l-4 ►J * t 
OPEN, CLOSE, CMD, iNPUT # , GET*:, PRINT* 

suffuse. citDx^-tfis^enjt, 


FILE NOT FOUND 


OPENS ft l±L0AD=lv> KTJSJtrSft'fc^M'^*. 
tS^ttfl'^ 4 S't fc*l£\ 17- 1C* >J S to 


TILE NOT OPEN 


7 7-f^*0PENLiL^"TftfflLtS-&t-> I5<4 

fill) CLR 

INPUTW10, A 
?FILE NOT OPEN ERROR 


FILE OPEN 


ffl) OPEN1.4.1 
0PEN1,4,1 
?FILE OPEN ERROR 


LOAD 





H5 



I ~? — X -yk — V 


w m 


NOT INPUT FILE 


ji-by h?-yo«^. i?;*(7-fHSi:oPEN 




3ftfc7 7"l'Jt#£>T ? -$*lfc#;:fc? [')- K) (•«*$ 




t Lti^i:, ^<Di7-#S4^t„ fcfc'L-, »^^ 




AffltCO P E N Ufc7 7"fA«CL0SELT» *«)», R 




*£<&('J- KJflilCOPENLfciS^tt, I7-CIJ4US 




#A.„ 




01) 10 OPEM.1,1 




20 INPUT#1,A 




RUN 




?NOT INPUT FILE ERROR 


NOT OUTPUT FILE 


At7h?-7f)i^> 7T<Ji'3S'6f ! -*S«t*C^ 




rotniSKs frSiCtitf?****.,, *m/;»K*; 




* CJ-K) ffli:0PENStit7 7"l , JH-. *g^* (5 




O) ttiZttot, iWi^-J'ltLtto ££*- 




#-KBA* (tt*C*) VfrZtsZUomft (x/W7) 




T'T*6. *-#-KHfcCj6>*tii* (»#£.<*) t£Z 




ttt?*t-ttA, -fi?, *ff)«t3aii^(ciii-7-ic* 




»J 4 To 




fill) Id OPEN1.0 (*-**- Km ?vW^#^-=0 ) 




20 PRINT#1,A$ 




RUN 




?NOT OUTPUT FILE ERROR 


VERIFY 


^*'J-(C*lft*tlT^S7*a^5Ai»f^Sfc, flHfc* 




tifc7 7"f JKOrtStf^'^T^iH^ ^rox^-ff'H 




5feU*t. 
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e : mmrnrn 

CBM BASICift'ffi&iiAB8S[tL-CfflMLT040MSt»?*>, W<~?4HJffi 



MS* 

SECANT 

COSECANT 

COTANGENT 

INVERSE SINE 

INVERSE COSINE 

INVERSE SECANT 
INVERSE COSECANT 

INVERSE COTANGENT 
HYPERBOLIC SINE 
HYPERBOLIC COSINE 
HYPERBOLIC TANGENT 

HYPERBOLIC SECANT 
HYPERBOLIC COSECANT 
HYBERBOLIC COTANGENT 

INVERSE HYPERBOLID 

SINE 

INVERSE HYPERBOLIC 

COSINE 

INVERSE HYPERBOLIC 

TANGENT 

INVERSE HYPERBOLIC 

SECANT 

INVERSE HYPERBOLIC 

COSECANT 

INVERSE HYPERBOLIC 

COTANGENT 



■MM* 

SEC(X)=l/COS(X) 

CSC(X)=1/SIN(X) 

COT(X)=t/TAN(X) 

ARCSIN (X) =ATN (X/SQR (-X * X+) ) 

ARCCOS(X)=-ATN 

(X/SQR(-XJKX+l))+^/2 
ARCSEC (X) =ATN (X/SQR (X * X~ I ) ) 
ARCCSC (X) = ATN (X/SQR (X % X~D) 

+ (SGN(X)-1) *zr/2 
ARCOT (X) =ATN (X) +*/2 
SINE (X) = (EXP (X) -EXP (-X) ) /2 
COSH (X) = ( (EXP(X) +EXP (-X)) /2 
TANH(X)=EXP(-X)/EXP(X) 
+EXP(-X)> #2+1 
SECH (X) =2/ (EXP (X) +EXP (-X)) 
CSCH(X)=2/(EXP(X)-EXP(-X)) 
COTH (X) = (EXP (-X) / (EXP (X) 

-EXP(-X)) #2+1 
ARCOSINH (X) =LOG (X+SQR (X * X+l) ) 

ARCCOSH (X) =LOG (X+SQR (X * X- 1 ) ) 

ARCTANH (X) =LOG ( (I +X) / (1 -X) ) /2) 

ARCSECH (X) =LOG ( (SQR(-X X X+1) 

+D/X)) 
ARCCSCH (X) =LOG ( (SGN (X) 

#SQR(X*X+1)/X)) 
ARCCOTH (X) =LOG ( (X+l } / (X- 1 ) ) /2 
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18 


R=INT(RND(1) *255) + 1 


28 


C=36879 


30 


POKEC. R 


40 


FORI=1TO200: NEXT 


58 


GOTO Iff 



f : *5-avha-;u 

VIC1881T-A ?-*3> b o -;u1" 5 cote &»*)*>»*&** *»3 *"t 

ti7?*-*5"«3>HJ-^li, [CTRL | *-frfe7 3fci:.fcfo, ££ 
PRINT*5lMi:POKE(: I i:(3-tti-e*ti.mA"ST-fcr&'5 ;t^?iit. 

F.I. /<7?*7-ff)3> hP™^ 

it (= (36879) l0 *») C3> I- a-^ftJ«x-?Srtt^-*4i-«, fft^trr- 
# t£ *»62S5©HH«)*ttT-t ( S (t- * ) £255) „ 

M 18 R=INT(RND(1) *255) + 1 *i Ctfr- * 4-ffc*J *-f 

•<9WF)»#ift 

OTO Iff 

RUN 

Z «J»-£n Rlil A> 5 2554 T*«^fflfi»&fit *■ 5 V * A H 36879$* :*>>£ £ A 

«|^2|fcfeTA£fcL£l§&, 2 a t-y htfONOfrv)©*^, BHoX?li'J^ 
-* (fifi) H4o-Ctti*l**i.4-t fcfcAtf, R = 1390*^,R*2a»-t?* 
#+§£. K = 10001011fc&f)2 3 fc? -^*M{=0N)4«f, w©ifc&Si U ■>>*-:* 

#J) 10 0=9X1613+15 - (9WF)„*» 

20 X=INT(RND(1) *15) -X ? V - V is 5- 3 - K£ft»lj *t 
30 Y=INT(RND(1) * 7) -#-*'-* 9-3- K*f^O *-T 
40R=X*16+8 + Y -a#'J->, #-^-*9-3-'K***l 

" -ftUDtWatl-try b, Stt'J' <-*(: + 3 



/■/* 



50 POKEC, R ".*7-3- KWS;**t» 

60 FOR 1=1 TO200 INEXT ••■&«&-"v&§ * T-mu#^^^gfi : L it. 

79 GO TO 20 

RUN 






' fed, (900F) lsftAJlW 1/M h 



(900F), 



2? 2* 2 5 2* 2 3 



T 



5 



i} 7 — 3 — $%*Ly I Ut, 

• 4 t* y h £$ffl L T X * 'J - > A 5 - 3 - F ' £ 



(*7'J->A7-:a- K) 
6 

*7-f h 

b -y K 
VT> 

7;u- 

-fin- 

7 -f h *!•>->' 



(*'-5f-A7-3-K) 



I 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

IS 



fcf>7 

■7-r h 



7;u- 



2 
3 
4 
5 
6 
7 



7 7 y 7 
*7-f h 

U-y K 

-7 'J - > 

<ID- 
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10 INPUTA 

20 POKE36879,A*16+8 

30 GOTO10 

RUN 



fcfcAif 

[CTRL 1 3- -+Hfc fcT fc 7 7 -y 7 tC ft U t T o 
|CTRL| ^-+g]tfe1-fc^A— CfttJtto 

R^ttE-tBiTttfflTft * + (» 1 S^- h'ftlfflU *» 3»*#JM). 

10 c$=" i«^MGrs * —u y H n-;uiC'>c 

ZB C=INT(RND(1) #B) + l ■■■ A 5 -$*£cD£»(a-~8sD5 > ¥ Ait 
30 PRINTMID$(C$,C.0;"'A'':-An3t'J f 4-fi*4*5-TtH;jU«:t D 

40 GOTO20 ^A*ift/i;-atiri>ftn»#MiMv#*i- , i 
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% + *- K«ig-A-f±C$'<±JM ?e>£?i~& *)$■}•* 

10 C$= " JJSSSIKff * 

20 C=INT(RND(I) )KB)+1 

30 PRINTMID$(C$,C,t);" A"; 

40 GOTO20 

RUN 



->- 3 > (") £*-**- F*>fiA*)LfcAfc. |CTRL | t-^ffL^^at 

t(UJ!lt5fc»i;ffll>5X?'J-l'3-l''* 1 ASCII (7**-) 3-KA>5 

5 INPUTX% 

10 W%=X7bAND63 

Z0 IF(X%AND128)< >0THENW%=W%OR64 

30 X%=W% 

40 PRINTX% 

&$mzX%IZZ4 ij-y=r~ KlX**Uftl>ASCIl3- K, fct*{f^t^AJ" 

UlcJ-f* (65) »«■«; ALT, Zmyn^Afc^frtSfc, *gg£>a£V->n 

- \'X% (?4 V • *>M-3fl irtll^ftASfrtt (» 1 3BSU *8 3 »« 

jSB (x * y - » it, wfoX'Z'tn* 'J r *JtoTi>4 1. ^'J-flos: 

1; RAMx>J 7^(1000) 16- (1FFF) leSMfci t>'3KjMU * 'J - £&«§ Lt, 
(0400)i ! ~(lFFF) 1) »^«J*H>, X 9 'J -W±(1K») ,,~ (IFF K) ,.#»::*») 
*1\ 

2) KAMxiJT*«(l«0ii*"i(2Wnii»»WMlJftA-(7KFEOi.»J**'C*6»ft. 
(^OI*{WW)ii~(0FFF)u#ftfe<?JRAM« ^ftliliSMW), X# V->li. 
(l000)„~(llFF)„»^|;*l1*t u 

J51 



'JTSmSt^llltfmLX (9600),.- (97FF)u*»*-e*^ *fi^^-«*7-03 

> I- n-;i-4fcZ4i,^t« *7-3>|-a-ii.3-ni, *'-*"- A 5-3- 
K (D.l#flf() tlsJUT-to 

-eii, Hffit^offW;**^- I- £#i>*0>< 7c-'/7iBoTAi Li 

10 SM=7680 (*fe(iSM=4096)"-Wj^iOCD. ©£#IS LTT2 l v. 

20 SC= 38400 

30 FORJ=0TO505 

40 M=SM+I : C=SC+I 

50 POKEM.83 :P0KEC.2 

60 NEXT 

RUN 

7 i V • -}•>;*- 19? x? ') ->x'j ra>x 9- [-Sifeti; Wi£«®, ®W2 
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G : W>K 

,||«i3,^«i:, (9(Hf.\)'ii, (9WB)m, (WC), f , (9WD).i«. (9WE)i*# 
I J\. 
(900A) IS #& 3 - K II i JaWfc«J*4 o A »*fli I' * t (#« *ffi 

#o< tt*iT)c 3- Kfi^-so Fa- F**#flgLTT 
(900B) ..*« ftffi (± (900A) M *]g i P i; t- t ** , Sfi ( h - s ) # *» * 5 

(9Md),.*» ytxtfrf) *+. 

(900E),,** 3- KiriO^WftKBi-ftSti+.tHO^^frO* 

ff OiSffttt-? ■> V K3- F (128^(3- F)<255) Ui 0^^t5 Z. t &X*£ 
I r 8 3 - K ©ft*** 8 < 4 *l I*, #fcK<40*t„ ft £ l> ffW t L T255«*S 
,>■'£, (S<4otlil^t» * A fr 1/ i> * * - KftAt* fc-gA ! jft i * to 



I5J 



<+^>K=>-K--lUS> 



%m 


3- K 


*M 




a-K 


K (C) 


128 


V 


(G) 


213 


K* (C*) 


134 


-J* 


(G*) 


215 


^ (D) 


14! 


"7 


(A) 


217 


U* (D#) 


147 


7* 


(A*) 


219 


5 (E) 


153 


-> 


(B) 


221 


77 (F) 


159 


K 


(C) 


223 


77*(F*) 


164 


K* 


(c«) 


225 


V (G) 


170 


l> 


(D) 


227 


V* (G#) 


174 


u* 


(D*) 


228 


7 (A) 


179 


"^ 


CE) 


230 


7* (A*) 


183 


7T 


(F) 


231 


V CB) 


187 


77 


*( F «) 


232 


K (C) 


191 


V 


(G) 


234 


K* CC*) 


195 


•J* 


(G*) 


235 


L' (D) 


198 


V 


(A) 


236 


W (D») 


201 


=7* 


(A*) 


237 


5 (E) 


204 


-y 


CB) 


238 


77- (F) 


207 


K 


(C) 


239 


7r*(F*) 


210 


K* 


tc*) 


240 



m Z<n -E*©ftFftfi*ft»#fBTti* I) *■£*,„ 



m 



ftfito * j " j?>, <*", *U" £2?®*-*- KliiOl?^- ?77^7?4 

08X8 K7 VW& 
8X16K<y h#|* 

4X8 K7 h, Sfctt4X16K-y H*lST'VJl-?-* : 7-3> hn-JUSfcC 

i"f, 8X8 Kv h ti>8 X16 F7 h tl^Wit, Hftft K £ -5 U -9 :t4«) 

C*i«), *fr£«J&£ON (*>), OFF (*7), 1-&fc^#5< LfcQ. B#< 
Lfcl^tS-tS-^'Sfr&^^^St. ft: & A if, : A" fc^SX^tt. 



9 


7 


6 


5 


4 


3 


2 


1 


& 








• 


• 








1 






• 






• 






2 


















i 


















4 


















5 


















6 


















7 



















#---0N(*» 

|_"-0FF(*7) 



ti^^-e^< 6*lTV»*to "CI*. 6L 'OB* tP5^7l ■v^Jt^^SX 
8 K? ha^-C^Stif^^SA'^TAtLi^o 
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7 


6 


5 


4 


3 


2 


1 


P 


Q 
















— 


1 
















2 






• 


• 


• 


• 






3 








• 


• 








4 








• 


• 








5 






• 


• 


• 


• 






6 
















7 








. t 









T?t±, iTLfc/fST*, 8 X8 4jfef±8X16Ky h »Sf t £^ ? - > £f£tj , 

(9«3)u»Jl3 (= (36867) irSW ©2* tf v h £ON (* » 2'OFF (#7), o* 
01^at=Utt(t^i£&t)*-»^ £©*&, 2'AS0©^«8X8 F-> h«A, 
1 «l$f±8 X16 F y 1- Ji$T-£ 5 Z t fcjtf L it, 

W (90«(3) l5 #ite=(36867) IJ #ite02 B t"y h#= <Wf£- 8 X 8 K-y !-«/£ 

= 1 ©«■&••■ 8 XI6K7 H*J$ 



J* K»£ L ft K y (• $$ TMV^ t tz %■%> i9 - > 3 - K ^^*rtt 6 igflff * ffift 
L*t„ 

fcfcAtf, W4«0i.#ifi*'6tffimtS«ftli, (9005) i.#A (= (3686»}unHU 
WT4 tfv I- (2 ( , 2 1 , 2\ 2 J tf y (-) ir»toi:-5f;*y h L£1% 

(9005)«#li 

* (9N5)„fttt ■ ~ ■ 

2? 2 ( 2 i 2* 2 3 2 ! 2' 2 8 

(36869),** Ixlxlxlxltf I g I g| 1 ,xlxlx-xl 

■ •- j , ■ 



(it) xiiWlti^toTi 0iLT4Si>*-fo 



756 



(Mft)..fttt 



II 2 7 2 s 2 J 2 4 2 J 2 ! 2 1 2 a 

(36869)*»*- IxI XlXlXl 1 I 1 I g I g I X | X | X , X | — X | 







T'Bv 3t^/\°*->3-K*^|gl-0<oT*f U J:9o 



7 6 


5 


4 


3 


2 


1 





B 


















1 


















' 






• 


• 


• 


• 






» 








• 


• 








4 








• 


• 









b 






• 


• 


• 


• 




i> 


















7 



















H'MHOf-J'Hf, 8ff#, 8'M KOn-K*fr*)*'t» r>& 0#T" 



J I I 1 I I i t 
2> 2 B 2 5 2 4 2 3 2 2 2' 2° 
II P II II II II II II 
128+64+32+16+8 + 4 + 2+1 =255 



a 



i i j i j i ii 

0+64+32+16+8 + 4 + 2 + 0=126 



• • • • 



+ 0+32+16+8 + 4 + + 0-6? 

T»l»l I I I 



1 + + 0+16+8 + + + 6-24 



J 57 



• • 



J 4 



# + (3 + 0+16+8 + + + 0=24 



• • • 



I I J i i I J i 

+ 0+32+16+8 + 4 + + 0=6? 



• [• 



I i 1 i i 1" J I 
0+64+32+16+8 + 4 + 2 + 0=126 



• !• 



• i« 



l 4 i J 4 4 1 I 

128+64+32+16+8 + 4 + 2+0=255 



E£*gH-5*:J6ICfi, £<D8ffle>-£*i-?*uo£ita (8/H hffifflLil") <>' 



«1 


1 

2 
3 
4 
5 
6 
/ 



7 6 5 4 3 



2 1 



• ♦ 



-0 + + 0+16+8 + + + 0=24 
-0 + + 0+16+0 + 4 + + 0=23 
-0 + + + 16+0+4 + + 0=2(1 
-0 + + 0+16+0 + + 2 + 0=18 
-0 + 0+32+16+0 + + + 0=48 
- +64+32+1 6+ + + + = 112 
-0+64+32+0 + + + + 0=96 
-0+0+0+0+0+0+0+0=0 



ns 



I«I2) *A*©»1 



l 


7 


6 


5 


4 


3 


2 


* 





































,' 






• • 




• 






! 


















•1 














— 


>> 
















I 






• 






• 






; 




• 










• 





-0+0+0+0+0+0+0+0=3 
-0 + + + 16+8 + + + 0=24 
— + 0+32+16+8 + 4+0 + 0=6? 
-0+64+32+16+8 + 4 + 2 + = 126 

-128+64+32+16+8 + 4 + 2 + 1 =255 
-0 + + 0+16+8 + + + 0=24 
-0 + 0+32+0 + + 4 + + 0=36 

-0+64+0 + + + + 2 + 0=66 



W3) BX1«K-y m*«>X*2'3fttt-3Tai*© ^" *^T*SLt 



******** l/T***T*. 

7 6 5 4 3 2 1 


















-0 


















-0 


















-15 


















-4 
















-31 


















-4 










• 




• 


• 


-15 








• 










-4 














-15 








• 










-20 








• 










-20 








• 






• 


• 


-23 


















-0 


















-0 


















•0 


















-0 



7 6 5 4 3 2 1 



• • • • 



-0 

-0 

-24a 

-16 
-248 
-16 
-240 
-0 
-240 
-16 
-16 
-240 
~0 
•0 
-0 

-0 



8 XI6K-/ HfljAoitjftfi, 1 'J</)i'i<£fV5jttf>i:i6 A -f t"tf#K£0 *+.. 
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W hmffyi . 2.3. T*4^^ # -yzs- F»f #A ! fcA' -jtt;5t', Iti6 * 

®8X8 Ky h*W£-Ca££fc£Jg5gl,*+ 

POKE36867, PEEK(36867) AND 254 

Z tiT> (9003)i ( #ft& (=(36867) „fi) ©2*^ h £ (Ml LT8 X8 K rv h* 
«-C*«It'#ti'4^it. &JS8XI6F7 hflWt<DS'i'i£POKE36867, 
PEEK (36867) OHltfc^^l'it. 

®tfr«* # - b#Jfca ! (14^„#flfe, t'x* R A MO 7 9 - \- *%# (1E00) 1S 
&&T* £;£&$£ Lit, 

POKE36869.253 

POKE36866 , PEEK (36866) OR 1 28 

it.) £ 3&»MPC656ftfcfx* ■0#-7i-X'f? 7?Ci«*#l$ L T K 2 V \ 

POKE5120.24 

POKE5121.20 

POKE5122,20 

POKE5123.18 

POKE5124.48 

POKE5125.112 

POKE5126.96 

POKE5127.0 
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POKE5128,0 

POKE5129.24 

POKE5130.60 

POKE5131J26 

POKE5132.255 

POKE5133.24 

POKE5134,36 

POKE5135.66 

- > (i, tSWWi- x*y->3-Kt {* * n - > 3 - K»#fia) WIS U * to 
& k5nmmtX'<r>X'-£;> ? - > &ftf&i-% Z ttfX-Z it, 

:5)Cl)~®*T*^ie^(C-/n^-7A(;o< oTAJLii 






! POKE51, a :POKE52, 19 

2 POKE55, :POKE56, 19 

3 CLR 
5 F0RI=1T016 
10 READ A 

20 POKE 1 023+4096+ 1, A 

30 NEXT 

40 GOTO 100 

50 DATA24, 28, 20,18, 48, 112. 96.0 

60 DATA0, 24, 60, 126,255,24,36,66 

100 POKE36867, PEEK (36867) AND254 

105 POKE36866, PEEK (36866) OR 128 

110 POKE36869,253 

140 END 



RUN | RETURN | fc A*J UTTiSH V 

* - * «j 1 1 tfti"«i: /» *i * e> bti 1 1„ 
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&*, :o^y9At»*)6*«oi:tt IIVopI *-+ [ Restore ! *-# 



1<S2 



m3® 







3>*'-*Vh-T-^$n^ 



1 . MPS6500T<^P?"P1?-y*- 

2. MPS6560t"f 1 '^ • < >2-7i< X • 5^7 (VIC) 

3. MPS6522;Affl-f>5-7i'TX7 7 ^7^ 

4. MPS2364X5t l <' v^ROM 
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[ 



MPS-65a0W?n7tl-try1J-- 




MaSt 
MPSestfBfvD-XW?* ?ayot7 + -li, 7 7 b^xT ■ n w^*/u4 

? ^^ , 7 y te itf (? 5 >f ■famsafi nm-e+o u-p&vsm* *-"**>"* * * a 
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